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ERROR CODES 


Error codes @ to 9 are common to the ZX80 {old and new ROMs) and the ZX81. 
Error codes A to F are for new ROM ZX80's and ZX81's only. 


CODE MEANING 


no ODpOBDrnagawn-B 


Successful completion 

NEXT with no FOR 

Variable name not found 

Subscript out of range, or error regarding subscript 

Not enough room in memory 

No more room on screen 

Arithmetic overflow 

RETURN with no GOSUB 

Attempt to use INPUT in the direct mode 

STOP statement executed 

Invalid argument to certain functions 

integer out of range 

The text of the (string) argument of VAL does not form a valid 
numerical expression 

Program interrupted by BREAK or the INPUT fine starts with STOP 
Program nafne provided (for SAVE) is the empty string 


CONT/CONTINUE is the same as GOTO m, where m is the line number displayed 
after the error code, except after code 9 when it is GOTO m +1 


FIRST STEPS 


Let's get underway by plugging in the ZX81 to get the cursor (that’s the white K on 
a little black square) down in the jeft hand corner of your TV screen. 


Enter the following program, which generates a series of random numbers between 
one and 19. Note that an underlined asterisk (2} means you need a single space in a 
PRINT statement. We'll use this symbol in programs if the space is vital, and might 
not be evident from the context. 


1g SLOW 
2g PRINT INT(RNO*#19) + 13" # "5 
3d GOTO 27 


This program will cause the screen to fill up with numbers between one and 19, gen- 
erated at random. These random numbers are of little use as they are, but come into 
their own when used as part of a game. The following program uses the random 
number generator to produce numbers between one and six for the game RUSSIAN 
ROULETTE. Note that you only need 1K for this game, that is, you do not need 
to plug in the extra memory pack, The standard ZX81 will hold the program. 


The principle of RUSSIAN ROULETTE is simple. You have a pistol with six 
chambers, only one of which contains a bullet. You point the pistol at your head, 
pull the trigger, and . . . either BANG or CLICK. Enter the program, RUN it a few 
times, then come back to the book for a discussion on some of the things you can 
learn from it. 


Ww PRINT "YOUR NAME?" 

3g INPUT AS 

5g PRINT "DO YOU WANT TO PLAY, * "sag;"7" 
6g INPUT 8% ~ 

7] CLs 

ag IF 8% = "NO" THEN GOTO 278 

og LET J=@ 


gg PRINT "PRESS NEWLINE" 
11g INPUT CS 

12g CLS 

139 LET JER +1 


16g Ss LET G = INT(RND*6) + 1 b/s 
179s) GG & 6 THEN PRINT "CLICK" 4 Cr 
199 IF G = 6 THEN GoTo 229 FS 
200 IF 3 = 19 THEN GOTO 259 a 

21g GOTO se. 

228 CLS ¥ 
239 = PRINT "BANG..."; # 
248 GOTO 239 p 
254 PRINT AZ;" * SURVIVES * "; 


269 GOTO 259 
278 cLs 


289 PRINT "CHICKEN..."; 
299 GOTO 28g 


RUN this program a few times, and then return to this book. There is an incredible 
number of usefu! things we can learn from this initial program. 


Firstly, you'll see that every line begins with a line number. The line numbers on a 
ZX81 can be any from 1 to 9999, but you'll find it best if you work in multiples of 
1@ or so because it gives you room to add extra lines between those you already have 
in the program. 


Extra lines sort themselves automatically into the correct order, and the computer 
always processes each line number in order from smallest to largest unless it is told 
during the course of a program to go to some other line. 


Following the first line number (10) we have the word PRINT, probably the most 
used command in the computer language BASIC, which is the language your ZX81 
uses. You follow the command PRINT with that which you want the ZX81 to print, 
in quote marks. In this case, it’s the words YOUR NAME. 


Try adding a comma just before the first set of quote marks, so the line reads 10 
PRINT ,“YOUR NAME?". Run the program again, and you'll find the ZX81 moves 
the words across the screen. The use of the comma in this way is ideal for setting out 
PRINT statements in columns (so it is ideal for printing out boring tables of figures). 


The computer stopped when it came to line 30 (INPUT A$). This A$ (a letter 
followed by a dollar sign) is called a string in BASIC and can be set equal to any 
combination of letters, characters and numbers, but we'll stick to letters for the time 
being. The computer stopped and waited for you to enter your string (your name). 


After you typed in your name, and pressed NEWLINE so the computer would accept 
it, the computer then ‘understood’ what Af had been made equal to, and -- as you’ve 
discovered — actually used it to PRINT out your name the next time AS appeared 
in the program. 


Next the computer asked you if you wanted to play (line 5@) and accepted a second 
string (BS) in line 60 as your answer. Next, line 7@ (CLS) cleared the screen, but 
without allowing the ZX81 to forget what you had entered for BS. 


Now the ZX81, like all computers, can make decisions and act on them. In this 
case, in line 60, it looks at your answer (B$) to the question, and if the answer is 
NO (that is, if BS = NO”) it directs control to line 279 which clears the screen. 


Control then passes to the next line (280) where the word CHICKEN .. . is printed. 
Line 290 sends contro! back to 280 over and over again until the screen is full and 
the program stops. 


You'll see that the word CHICKEN forms quite an attractive pattern, and if you want 
something to investigate after reading this section, use a ‘perpetual loop’ and a few 
graphical symbols in a PRINT statement, to create patterns to fill the screen. 

Back in RUSSIAN ROULETTE land, if you do not answer NO when asked if you 
want to play, the computer moves along to line 90 where the variable J is assigned to 
the value zero. —— 


in Sinclair BASIC, any letter -- or combination of letters and/or numbers starting 


2 


with a letter - can be assigned to a value. So line 99 could say, for example, LET 
SUM = © or LET PO4 = @. You follow the instruction printed in fine 16@ (PRESS 
NEWLINE) and the screen clears yet again (line 126). Line 130 adds one to the value 
of J so J becomes equal to one. Next time around it will add one again, so J will equal 
2 and so on. 


Line 149 (LET G = INT(RND*6) + 1) uses, of course, the random number generator, 


Line 170 makes another decision. This kind of statement is known as an IF/THEN 
statement because it is of the form IF some condition exists THEN do something (IF 
the tyre is flat THEN pump it up). The condition can be almost anything from IF 
X = 96 to IF AS = “FROG” to complicated conditions like IF A — B = 2*E — Y/4 
THEN... 


Anyway, this IF/THEN statement checks to make sure the random number generated 
is less than six, and if it prints CLICK. If it is not, the ZX81 continues to scan the 
program, line by line, until it finds something it can do. if G is equal to six (line 190) 
it sends control to line 279 which uses a similar idea to the one we discussed earlier 
for CHICKEN to print out the fatal word BANG. 


Now assuming that G is less than six, the computer will print out CLICK in line 179, 
ignore 19% and then come to line 20. When it gets there, it will check to see what 
value has been assigned to J. if it equals 1@, you've won the game, so the computer 
sends control to line 259 to tell you. If J does not equal 19, the computer ignores 
line 200 and then finds, at line 219, a command it can obey, and sends all the action 
back to 109. 


Once you've read through this somewhat bewildering explanation a few times, and 

you've killed yourself a number of times with NEWLINE, I'd like you (before you 

cheat and read how I've done it) to add and/or change a few lines in the program to 
allow the player to have a new game if he or she survives the first game, without 

having to press RUN and start all over again. 


Once you’ve made your own version of this change -- and there is an enormous 
number of ways it can be done -- come back to the book and see the way I’ve done 
it. 


Probably the simplest way is to add the following: 
255 PRINT "ANOTHER Go?" 
And change line 269 to read GOTO 69. 


By doing this, you use the routine of lines 60, 70 and 8@ ‘twice’. You may well have 
done it differently from this. It does not matter what changes you made, so long as 
it achieves the desired end. 


Now, there is another way we could have produced the same effect -- by use of a 
SUBROUTINE. 


Whenever a computer comes across a GOSUB (GO to SUBroutine) command, it goes 
to the line specified, and follows on until it comes to the command RETURN. The 
computer then returns to the line AFTER the GOSUB command. Make the following 
changes to your RUSSIAN ROULETTE program and this should be clearer: 


398 INPUT 82 
319 CLS 


329 IF 88 = "NO" THEN GOTO 279 
33¢ RETURN 


This time, when you run the program, the computer will be sent to the subroutine 
when it gets to line 6 or 260 


Now here’s a program called BEAT THE DEALER in which one subroutine (starting 
at 300) keeps track of your money and the other (starting at 499) rolls two dice. 


BEAT THE DEALER begins with the ZX81 throwing two dice. The total of the 
two dice is recorded. Next, the human player throws the dice. !f the human’s total is 
greater than the ZX81’s total, the human wins £5.50 and the computer loses the 
same amount. If, however, the human score is the same as, or less than the ZX81 
score, the computer gets £5.50 and the human loses the amount. It should be clear 
once you've played a few rounds, and after you have seen it in action, you should 
have a much better understanding of what a subroutine does. 


ig LET M = 39 
2g LET N=M 
3¢ LtT 2 = 5.5 
48 GOsua 3¢¢ 
5@ cCOsuB 4¢¢ 


LET C= A +8 

SCROLL 

PRINT "MEs * "sa3" * "3a , C 
INPUT AS 

GOSuB 499 

LET D =A +8 

SCROLL 

PRINT "YOUs * "sa;" * "3B , O 
IF D > C THEN GOTO 169 

LET MemM-Z 


SCROLL 

PRINT “YOU c"sm ,"ME £"3N 
INPUT AS 

RETURN 

LET A= NTeRND@e + 1 

LET @ = INT(RNDO*6) + 1 
RETURN 


SERIOUS APPLICATIONS 


Sinclair Research have added many useful functions to the ZX81 so it can be used 
in ways which were impossible on the ZX80, This section looks at some of the new 
possibilities. 


Here is a number of short programs -- - written by Tony Baker — to demonstrate the 
ZX81's plotting ability. Run them in the SLOW mode. 


HEAVY OVAL PLOT 


T' FOR A = 1 70 189 
20 LET B = PI*A/S9 
3g PHINT AT 9*CUS (H) + 14, 14*SIN(8) + 15;"inverse space" 
4g NEXT A 
OVERLAPPING SPIRALS 
Ww FOR A = i ie Fag 
2g LET B= (58 
3¢ LET t = (4 ae - A)/4b 
4g PLOT (24.5 * COS(H) + 39)*C,(28* SIN(B) + 29) *C 
By NEXT A 
SPIRAL, PLOT/UNPLOT 
5 FOR D = 1 TO 2 
19 FOR X = 1 TO 4g@ 
15 IF 69 = 1 THEN LET A = X 
17 IF D = 2 THEN LET A = G@@ - X 
28 LET C = (49M ~a) /4y@ 
25 LET B = PI*A/SY 
Ky’ IF Uv = 1 THEN peor 7M -5*C05(8))*C + 38, 
* SIN(8))*C + 29 
35 IF D = 2 THEN UNPLOT (20.5*COS(8))*C + 39, 
(28* sin(s))#c + 29 
4g NEXT X 
45 NEXT D 
SINE CURVES 
W FUR A = 2 TO 12% 
20 LET 8 = ARPL/30 
34 PLOT A/2, SIN(B)*24 + 29 
av NEXT A 
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DOUBLE SINE WAVE 


% for C = 170 2 
WV FOR A = 2 TO 126 

15 If C = 7 THEN LET B = A*PI/6¢ 
ou If C = 2 THEN LET 8 = = A*PI/68 
25 PLUT A/2, SIN(B)*28 + 24 

3 NEXT A 

35 NEXT C 

W FOR A = 2 10 129 

“i LET 8 = A*PI/6Y4 

3¢ PLOT A/2, SIN(B)*28 + 27 

4g PLOT A/2, LOS(B)*20 + 28 

sg NEXT A 


CASCADING SINE CURVES 


5 DIM S(4) 

W FOR Z = 11708 

15 FOR A = 1 TO 129 

20 LET 5(14) = SIN(A * PI/6%)*29 + 29 
25 LET 5(2) = COS(A * PI1/6g)*29 + 29 
3g LET 63} = 4f - $(1) 

35 LET S(4) = 4a - S(2) 


LET 3 Z = INT(2Z/4)*4 + 1 

LET K = Z + 3 = INT((Z + 2)/4)%*4 
UNPLOT A/2, 5(3) 

PLOT A/2, S(K) 

NEXT A 

NEXT Z 


DEMONSTRATION PLOTS 


You can join several of these programs together, if you have enough memory, to 
create a highly effective demonstration program. 


248 
258 


FOR A = 170 199 

LET B = PI*A/5@ 

PRINT AT 9*COS(B) + 1M, 14*SIN(B) + 15; "inverse 
space" . 

NEXT A 

PAUSE 29% 

CLS 

FOR A = 1 TO 499 

LET B = PI*A/59 

LET C = (400 - a) /4a 


PLOT (20.5*COS(B) + 307)*C, (20*SIN(B) + 29)*C 
NEXT A 

PAUSE 209 

CLS 

FOR A = 2 TO 129 

LET 8 = A*PI/38 

PLOT A/2,SIN(8) #20 + 29 


NEXT A 

PAUSE 209 

CLS 

FoR C = 1 TO 2 

FOR A = 2 TO 129 

IF C = 1 THEN LET B = A*PI/6G 
IF C = 2 THEN LET B = ~A*PI/6¢ 
PLOT A/2, SIN(B)*2¢ + 28 

NCXT A 

NEXT C 


If you wish this to be a continuous demonstration, add: 


269 
278 
288 


PAUSE 209 
CLS 
RUN 


MULTIPLICATION QUIZ 


The ZX81 can be used to create its own numerical quizzes, and check the user’s 
answers: 


Ww ttT 2=¢ 

20 GOSUB 46% 

38 PRINT TAB 8;"MULTIPLICATION QUIZ" 

4g CUSUB 46% 

s¢@ PRINT "DEGREE GF DIFFICULTY (4 TO 19)?" 
6g INPUT A 

76 IF AC 1 OR A > 11 THEN GOTO 69 

146 GOSUB 464 

114 PRINT "HOW MANY GUESTIONS?™ 

128 INPUT 

138 If B < 1 THEN GOTB 129 

148 CLS 

158 FOR G = 1708 

169 LET C = A*INTCRND*¥1f) + 1 

170 LET D = A*INT(RND*1Q) 1 

168 LLT t = LD 

199 GOSUB 46¢ 

208 PRINT "QUESTIUN NUMBER * "5G 

218 GUSUB 46¢ 

220 PRINT "WHAT 15 * "303" * TIMES * "3D3"27"5 
238 INPUT F 

248 PRINT “four spaces";F 

258 GOSUH 40% 

268 If f = t THEN GUTO 429% 

276 PHINT "INCORRECT. THE ANSWER IS * "36 
289 GOUSUb 46g 


298 PRINT TAB-B; "YOUR SEGRE. 1S * "37 


sue PRINT TAG 9;"RIGHT QUT OF * "3G 

318 PRINT "PHESS NEWLINE * "3 

329 IF NOT GC = 6 THEN PRINT "TO CONTINUE" 
338 INPUT AS 

349 CLS 

350 NEXT G 

368 FOR K = 1 To 3 

379 GOSUB 40 

36g NEXT K 

398 PRINT “ENO OF QUIZ. YOUR SCORE Is" 
4a PRINT TAK 8; INTC H*199/G);" * PER CENT" 
41g STOP 

428 LET Z=2+1 

438 GOSUB 468 

44¢ PRINT "CORRECT. THE ANSWER IS * "5E 
454 GOTO 284 

469 FuR 5 = 176 3 

474 PRINT 

4a¢ NEXT S 

49¢ RETURN 


SQUARES | 
(DEMONSTRATING SCROLL) 


The next program shows the SCROLL function in use: 


1 LET K =@ 

20 GUSUB 220 

34 PHINT TAS 8;"SQUARES" 

44 » GUSUB 229 
5 PRINT TAB 63;"LOWEST NUMBER?" 
oy INPUT A 

70 GUSUB 220 

ag PRINT TAB 63;"HIGHEST NUMBER?" 
og INPUT B 

10 GOSUB 22g 

11g PRINT "PRESS NEWLINE FOR TABLE" 
126 INPUT AS 

130 CLS 

149 FUR X = A TO B 

tod LET K = K + 1 

Tog IF K > 2@ THEN SCROLL 

Vt PRINT TAB 83X;" * SQUARED 1S * "5 x®xX 
18g NEXT X 

194 PRINT 

204 PRINT TAB O3"END OF TABLE” 
21¢ 3TOP 

22, FoR C = 170 3 

23 PRINT 

24 NEXT C 

25 RETURN 
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The variable K acts as a counter to start SCROLLing when the screen is nearly full. 
You can use this idea if a program output is sequential and is likely to cause the 
program to crash by demanding more than one screen full of space. 


TABLE AND GRAPH 


This next fittle routine creates a table of values in accord with the formula you 
place in tine 99, then plots the values. You can easily dispense with the plotting part 
of it if you like, by deleting lines 139 to 160. You will have to experiment with the 
scale used to get the most effective plot of your formula. 


Ww PRINT "LUWEST VALUE (X) To PLOT", "AGAINST?" 
2g INPUT A 

3a PRINT A, "HIGHEST?" 

4g INPUT H 

of CLS 

64 =OIM C(B) 

76 FOR D = A T0 B 

ug SCROLL 

og LeT C(O) = ....-your formula.... 

194 PRINT 0, C(D) 


118 NEXT D 
129 PAUSE 34a 
138 CLS 


148 FORD =A TO 8B 
158 PLOT Dv, C(u) 
168 NEXT U 


Try this with A equal to one, and B equal to 60, using the following formulae: 


LET C(b) = 2#*cos BO 
LET e(b) = v*D/i1¢g 
LET C(U) = 5*5QR 0 


ARITHMETIC MEAN 


This program accepts a series of numbers and then works out the average (mean) of 
them, It uses the formula: 


1 LET L=G 
24 PRINT "HOW MANY NUMBERS WILL YOU ENTER?" 
38 0 INPUT A 
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4g FOR b= 170A 

5% SCROLL 

68 PRINT “INPUT NUMBER * "58 
74 INPUT D ~ 

8A = SCROLL 

98 PRINT VU, A - 83" * TO Gu" 
We LET CSC +D 

118 NEXT B 

128 CLS 

138 PRINT "TOTAL WAS * "5¢ 
149 PRINT ~ 

1S@ PHINT "MEAN IS * "3( ENT(C/A*19@)) /A90 


Line 159 ensures the mean is stripped to a maximum of two decimal places. Change 
the 199 to 19 for two decimal places, to 199@ for three and so on. 


DATA SORT 


This program sorts up to 100 numbers into descending order. Just enter the numbers 
(positive, negative or mixed) one by one when prompted. When you want the ZX81. 
to sort the numbers from highest to lowest, input a @. 


5 Dim a(11¢) 

W leT 2=@ 

2¢ LET Y = 1¢f 

36 SCROLL 

35 PRINTNENTER NUMBER * “3Z + 1; * "; 
4g INPUT Q(Y} 

BY If Q(Y) = @ THEN GOTO 197 

6g LET Z=Z+ 1 

70 PRINT Q(Y) 

8g LET Y= Y +1 


19g = CLS 

119 FOR X= 19 T0 2 +8 

128 FORN=X+17T0Z2+9 

138 =F Q(X) > Q(N) THEN GOTO 179 
148 = LET € = Q(X) 

158 LET Q(X) = Q(N) 

168 LET Q(N) = E 


208 SCROLL 
218 PRINT N, Q(N + 9) 
228 NEXT N 
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QUADRATIC EQUATION 


ax? + bx +c =@ (a # @) 


Both roots are printed if there are two real roots, one root if they are equal, and 
both the ‘real’ and imaginary parts of imaginary roots. It is quite clear from the 
output which roots are printed. 


5 PRINT “ENTER aA" 

14 INPUT X 

15 PRINT X, "ENTER 8" 
20 INPUT Y 

25 PRINT Y, “ENTER C™ 
3g INPUT Z 


35 cls 
4g LET Y = - ¥/2/x 
45 LET Q = Y*¥Y¥ = Z/X 


se IF Q = @ THEN GOTO 2¢9¢ 

55 IF Q> @ THEN GOTO 369 

6g LET k = SQR (-Q) 

65 PRINT "EIMAGINARY ROOTS:" 

7g PRINT ""REAL" ROOT * "3y 

75 PRINT "IMAGINARY ROOT * "36 
eg STOP ~ 


208 = PRINT "EQUAL ROOTS: * "sy 
218 = =sToP 


308 PRINT "REAL ROOTS:" 


31f PRINT ,Y + SOR O 
328 PRINT ,¥ - SQR QO 


STANDARD DEVIATION, 
MEAN, VARIANCE 


This standard deviation program uses the following formulae: 


Mean = ax = x 
" 2 
=? - x =v 


Variance = 
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Standard Deviation = J v 


To run this program, enter the number then frequency as directed. If you make a 
mistake, enter the letter E, then the item number at which the mistake was made. 
You will then be able to re-enter it. 


When all the data has been entered, input the letter Q to Jet the processing begin. 


19s PRINT “ITEM *# * ® # 
"Four graphic 7 * ¥ 
nine graphic 7" 

38 LET E = RND 

4g LET Q = RND 


NUMBER * * * * FREQUENCY", 
* 


* six Qraphic 7 * * * * 


cy" | DIM xt 3a} 

6g DIM F(5¢ 

70 LET A = @ 

bf ttT ue 

9g LLT ASA + 4 

we ute =zaB+] 

110 IF B > 19 THEN SCROLL 


14g IF X = € THEN GOTO 21¢ 
158 IF X = Q THEN GOTO 269 
169 LET x(a) = X 

172 = PRINT TAB 183X3 

188 INPUT F(A) 

199 PRINT TAB 21;F(A) 

208 «GoTo 9g 

219 LET B=B +1 

228 IF 8 > 19 THEN SCROLL 
238 8 PRINT TAB Bs "ITEM?" 
248 INPUT A 

258 GoTo 199 


268 LET N= @ 

279 «=6LET A=@ 

28g «€6Cl LET B= G 

299 FOR Z=1 70 S¢ 

388 «= LET N=N + F(2 

319 LET A =A + F(Z meres 

329) LET B = B + F(Z) *X(Z)*x(Z) 
338 NEXT x 

348 CLS 


358 PRINT AT 5S,0;"MEAN=",,,A/N,,,"VARIANCE=",,, 
B/N ~ A*A/(NEN),,, "STANDARD DEVIATION=",, 
SQR(B/N - A*A/(N*N)) 


If you want to dress the program up a bit, to show it is actually doing something, 
add the following lines: 
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295 
395 
315 
325 


PRINT AT 21,19; "THINKING" 
PRINT AT 21,19; "THINKING" 
PRINT AT 21,183 "THINKING" 
PRINT AT 21,493 "THINKING® 


EQUATION SOLVER 


The following program can be used to solve any equation in which X equals zero. 
As well, it prints out the answers it is reaching along the way to solving the equation, 
and the error. It is fascinating to watch it at work. This program will produce an 
answer correct to 9 decimal places. 


If you wished, for example, to find X such that X*X — SIN X =@ you would enter 
X*X — SIN X when prompted (in 3@). If you knew the answer you wanted was 
around 0.8 or 0.9 you next input these numbers. If you have no idea of the answer, 
just pick any two different numbers — then leave it up to the ZX81. 


To find the cube root of a number, enter X**3 — the number in answer to the 


prompt (e.g. X**3 — 2.79 if you wanted to find the cube root of 2.79). To get 
square roots, just enter X**2 — the number. 


W 


20 
3g 
4g 
45 
<1" 


PRINT "COMPLETE THIS EQUATION AS A (four spaces) 
FUNCTION OF Xs" 

PRINT "# = "; 

INPUT AS 

PRINT AS 

PRINT 

PRINT "PLEASE ENTER TWO DIFFERENT (six spaces) 
NUMBERS CLOSE TO WHAT YOU THINK THE 

ANSWER MIGHT BE" 

INPUT A 

PRINT 

PRINT A, 

LET X =A 

LET F = VAL AS 

IF F <> @ THEN GOTO 139 

PRINT AT 13,33"THE ANSWER IS",A 
STOP 

INPUT 8 

PRINT 8B 

PRINT AT 19,19; "RESULT=" 

PRINT AT 11,11; "ERROR=" 

LET X = B 

LET G = VAL AZ 

PRINT AT 19,1738 

PRINT AT 11,173 ABS(G - F) 

IF aBS(F - G) ‘> 1€ - 9 ANOGSD@ THEN GOTO 249 
LET A= 8 

GOTO 119 

LET x = (G¥A - F*B)/(G - F) 
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245 LET F =G 


258 LET A> 8 
269 LET B = X 
278 GOTG 189 


INTEREST 


The ZX81 can also be used for practical tasks such as the following, which works out 
how much interest must be paid on a loan, It accepts the length of the loan in days, 
but if you want to find out how much the interest is on a loan taken over years, input 
the year figure (i.e. 25) multiplied by 365 (that is, when the ZX81 asks the “LENGTH 
OF LOAN IN DAYS", enter, for 25 years, 25*365), Alternatively, you might like 
to modify the program to accept the input in years, rather than days. 


Ww PRINT "PERCENTAGE INTEREST RATE?" 
2g INPUT E 

38 PRINT 

4g PRINT E, "PRINCIPAL? (£)" 

Sg INPUT P 

69 PRINT 

W PRINT P, "LENGTH OF LOAN ",,"IN DAYS?" 
ag INPUT D 

9@ = CLS 

198 = LET E = INT(P*0/36599 * £ + .9) 
119) - PRINT “INTEREST IS e"sZ€ 

129 = =PRINT 

138 PRINT "TOTAL (PRINCIPAL PLUS" 

148 PRINT “"INTEREST) 15 £"3P + £ 


WHAT CAN YOU DO WITH IT? 


Many ZX81 users -- who have had experience working on the ZX80 -- feel cramped 
at the small memory they have to work with on a 1K machine. 


The 1K ona ZX81 is not as efficient as the same memory on a ZX80 for a number of 
reasons. These include: 


* System variables consume 125 bytes on the ZX81, and only 40 on the ZX80 


* Line numbers take three bytes on the old ROM (two for the line number, one for 
the line end of the line} and use up five bytes on the new ROM/2Z X81 


* Numbers are the big space wasters on the ZX81. A number uses up the number of 
digits in the number, plus one for the decimal point if there is one, plus six. As 
you'll see, it is ‘cheaper’, in memory terms, to set LET P = 1 and then use P 
instead of 1 if you have more than three ones in the program. Let Q =P +P is 
cheaper than LET Q =2. 

You can see how many bytes you’ve used in a particular program by entering, as a 

direct command: 

PRINT PEEK 16396 + 256% PEEK 16397 - 16509 

It is very useful to enter this as line 9999 so that, at any time, you can find the 

number of bytes by entering GOTO 9999. 


Enter, and run, the following program: 


19 FOR A=1 TO RNO#18+2 
2@ FOR B=1 TO RND#18+2 
3@ FOR C=1 TO RNO#19+2 
4@ PRINT “#"; 
NEXT C 
6@ PRINT “I'; (inverse space) 
se eRe “32> (graphic H) 
Q999 PRINT PEEK l16356+7+2564PEEK 1 
6397-16629 
You should find this occupies 206 bytes. 


Now, add: 


§ LET D= 10 


and change the 10 in fines 10, 20 and 30 into D, and run the program again. This 
time you'll see the program only occupies 201 bytes, even though you've added a 
whole extra fine. Now this saving of five bytes is not, perhaps, very dramatic, but it 
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shows that memory can be saved in this way. And this can be most important if 
you're running close to the limit of your computer's memory. 


Next, add: 
3 LET E = PI/PI 
4 LET F = E + € 


This sets E equal to one, and F equal to two, and despite the roundabout way of 
doing it, proves most efficient. 


Go through your program again, changing all the ones into E, and all the twos into F. 
Run it again, and you should find it only occupies 187 bytes, quite a drop from the 
206 we started with, although an additional three lines have been added. 


Despite the fact that only 1K can seem restrictive, very worthwhile programs can be 
written in considerably less than this amount of memory. 


For example, the following program -- which works out roots, such as cube roots 
and square roots of a number you enter -- occupies just 154 bytes, including line 


1@ PRINT NUMBER?” 
38 PRINT N: “ ROOT?” 


6@ PRINT “THE “:R 

7@ PRINT .,"“IS “";N 
9999 PRINT PEEK i&3 
6397-16589 


“ ROOT OF “, 


3 
FF f2-R} 
S6+256s#PEEK 3 


To use this, enter the number you want (such as 1000) and then, when asked to do so, 
enter the root you require (such as 3, for the cube root). 


Because each line in a ZX81 program consumes memory, it is useful to be able to 
drop a line from time to time. Many programs end with something like: 


IF X > 20 THEN PRINT “YOU WIN" 
If X » 20 THEN STOP 


A simple way of doing this, without adding the second line, is to add a letter which 
has not been used for a variable, immediately after the PRINT statement. This will 
cause the program to stop (with an error message). 


Here’s a sample program which should make it clear: 


1a INPUT AZ 

20 PRINT AS 

30 If AZ = "S" THEN PRINT "THE END 
40 If AS = "S" THEN STOP 

50 GOTO 10 
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This version takes a bytes (work it out for yourself, with the aid of line 


9999}. 


Now enter this version, and see how Iong it is: 


10 INPUT AS 

20 PRINT AS 

30 If AS = "S" THEN PRINT "THE END" su 
50 GOTO 10 

This version takes bytes. 


As an exercise now, enter the following program, run it so you can see what it does 
(entering first a single letter, then NEWLINE, then a number, then NEWLINE, then 


another number), and then try and rewrite it so it uses up less memory. 


1@ INPUT AS 
20 IF AS="X" THEN STOP 
35 INPUT 


1a 
9999 PRINT PEEK 16396+2S564PEEK 1 


63997-165e9 


Run this, and you should find it takes 218 bytes. Once you've worked on rewriting 


to make it shorter, return to this and see one way I've done it: 
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S$ LeT 2=180 

18 INPUT AS 

2@ IF AgS="X" THEN STOP 
35 INPUT A 

406 INPUT B 

S@ FOR C=Z"Z TO R 

6@ FOR DeZzrZ TO B 

7@ IF RND>.G THEN GoTo z 
8@ PRINT “I; 

98 GoTo Z+SOR Z 


9999 PRINT PEEK 16396 +256 «PEEK 
6397-165es . 


This version occupies 209 bytes (with the usual 9999 on the end of both programs). 
See if you can shorten it even more. 


In the book PROBLEMS FOR COMPUTER SOLUTION by Donald D Spencer, he 
poses a problem as follows: 


“If five pairs of birds each raise 3 eggs to aduithood, then die, jeaving the 
remaining 15 birds to mate and also raise 3 eggs per pair to adulthood, then die, 
etc., how many birds will there be at the end of 5 years?” 


Write a program to solve this, and then return to see one way that | did it. 


In the following example, I’ve spelt out the names of the variables in full. That is, 
I've used a variable called BIRDS to set equal to the number of birds, and a variable 
called YEAR to represent the year. Work out how many bytes in your program, 
then enter mine as listed, compute the number of bytes, then shorten it by changing 
the variable names into single letters. As you'll see, you'll save quite a bit of 
memory in this way. 


S LET YEAR=e 

1@ LET BIRDS=1e 

B@ LET BIRDS=INT (BIRDS +243) 

3@ LET YEAR=YEAR+i1 

4@ SCROLL 

S@ PRINT “YEAR “; YEAR: “ BIRD 
§ “,B6IRoS 

60 FOR P=1 TO 58 

7@ NEXT P 

6e GOTO 2a 


Our next sample program, which you'll find far harder to shorten, is called 
JUMPING JACKRABBIT. The rabbit (an inverse space) starts off on the central 
spot of a five by five grid drawn on the outside of a cylinder, so the right hand and 
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left hand edges meet, but the top and bottom do not. A coyote, deadly enemy of 
the jackrabbit, waits at the top, and one at the bottom, waiting for the rabbit, which 
is not very bright, to leap off. If the jackrabbit does this, the program stops with an 
error message to show the jackrabbit has been eaten. The jackrabbit jumps at random, 
one square at a time. You'll find this gives quite a fascinating display, which may well 
suggest other programs to you. 


OIM AtaS5) 
Tv 


3s 
=A THEN PRINT 


LET C=INT (RNDO £5) 42 

IF C=2 OR C=3 THEN GOTO 148 
iF RND>.S THEN LET C=-c 

LET AZ) =27 

LET 2£22+C 

GoTo Se 


You'll find that very rarely, if ever, will the jackrabbit survive more than 15 jumps. 


Finally, here is a simple FRUIT MACHINE program, written using many of the 
space-saving ideas J’ve been discussing. Enter and run it, and once you've seen it in 
action, try and write it so it is more memory-efficient. 


LET K=3 

LET T=2 

LET M=S30 

LET Z=rHvsN 

LET A=M-M 

LET B= 

LET C=R 

PRINT “YOU HAVE £°:°4H 
INPUT AE 

CLs 


FOR D=7 TO K 
GOTO i6@4+INT (RND#K) 410 
PRINT “SB "> 
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218 
BROKE > ts 
222 GOTO Se 
(423 bytes, including line 9999). 


PLOTTING AND PRINTING 


The ZX81 (and new ROM ZX80) has very useful facilities for plotting and printing. 
The next four programs show these facilities in action. 


PATTERN-MASTER 


This program will generate a constantly evolving design, using a character you select. 
It is relatively satisfactory using PAUSE but really comes into its own when you 
delete the PAUSE fines and nun it in the SLOW mode. 


1A PRINT AT 5, 83"PATTERN-MASTER"™ 

28 PRINT AT 1@, @;"WHICH ONE LETTER, NUMBER OR ", "GRAPHICAL 
CHARACTER OO YOU", "WANT ME TO USE IN 
A PATTERN?" 

3d INPUT AS 


4g CLs 

S¢ FOR 2 = 110 S#@ 

6g LET A = Hee are +14 
1 LET 8 = INT(RNO*16) + 1 


6g PRINT AT A,B;A8 

o¢ PAUSE 39 

198 PRINT AT 22 - A,BSAB 

119 PAUSE 3f 

428 PRINT AT A, 32 - 83AZ 

134 = PAUSE 39 aS 
149 PRINT AT 22 - A, 32 - B;AS 

158 PAUSE 109 


160 LET A = INT(RND*11) + 1 ~ 
178 LET B = INT(RND*16) + 1 

18@ PRINT AT A,8;" * " 

198 PAUSE 5 X 

268 PRINT AT 22 - A,B" * ® yr 


219 PAUSE 5 
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22g 
238 
248 
258 
268 
278 
288 
299 
348 


PRINT AT A, 32 - 83% * " 

PAUSE 5 

PRINT AT 22 - A, 32-8; "*" 
PAUSE 5 

If RND > .4 THEN GOTO 168 
NEXT Z 

PAUSE 4@8 

CL$ 

RUN 


CAPRICCIO 


“Capriccio: Music, a lively piece composed freely . . .” (Collins English Dictionary). 
Capriccio is a similar program to PATTERN-MASTER, except it creates designs on a 
finer grid (62 X 4D) and uses the PLOT and UNPLOT functions instead of PRINT AT. 


218 
220 


Stow 

RAND 

LET A = INT(62*RND) 
LET 8 = INT( 4%*RND) 
IF RND > .25 THEN GOTO 159 
PLOT A,B 

Gosus 2¢¢ 

PLOT A, 48 - 8 

GOSUuB 294 

PLOT 62 -A, B 

Gosus 2¢¢ 

PLOT 62 - A, 44 - 8 
GUSUB 299 

GOTO 37 

UNPLOT A,B 

UNPLOT A, 49 - 8 
UNPLOT 62 - A, 8 
UNPLOT 62 - A, 4@ - 8 


GOTO 3¢ 
ee Las (Make this loop longer if you want the program 
RETURN to run more slowly.) 


BUTTERFLY 


BUTTEREFLY is a simpler version of the above program, and will fit within 1K. 


LET C 
LET O 
LET A 
LET B 


62 
Bld 
C*RND 
D*RND 


Ce | 
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Tf PLOT A, 8 


6a PLOT A, 0 ~- 8 

7 PLOT C - A, B 

ag PLOT C - A, O- 8 
99 RUN 


As you can see, there is no facility to UNPLOT any of the little squares so eventually 
the TV screen will become a solid, black rectangle. 


STAR-MAP 


STAR-MAP creates a galaxy (of sorts) on your TV screen, and is an effective display 
program if left to run for a long time. The program sets up a black rectangle, and 
proceeds to PRINT AT and unPRINT AT stars in this black nothingness. 


1 SLOW 

2 FOR A= 1 TO 19 

38 FOR B = 1 TO 32 

4g PRINT “inverse space"; 

5w NEXT B 

6g NEXT A 

7 PRINT AT RND* 9, RND*31;"inverse asterisk" 
ag PRINT AT RND* 9, RND*31;"inverse space" 
Ae ) these tuo lines are the same as line 6g 
119 PRINT AT 1,%;“inverse space" 

129 PRINT AT 1,13;"non-inverse asterisk" 


138 GOTO 78 


\ 


i) 


Kak /\/ 
i RPEX OX 
| WAX 
\ NOLS 
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We've spent a fair bit of time on ‘serious’ applications. We'll have a look now at some 
of the games possibilities of your ZX81. 


GEIGER 


GEIGER works well in both SLOW and FAST modes. This listing is for FAST, but it 
requires only minor modification to make the best use of SLOW. You are looking 
for a cache of plutonium hidden on a solid black plane. You have to learn how to 
interpret the output of your geiger counter to find the plutonium. The reading given 
by your geiger counter is determined by line 290, so you can easily alter this if you 
want it to give a different reading. If you want to make it really difficult, you can 
add a slight degree of waywardness to the geiger counter’s output by introducing a 
random factor. 


Ww LET S=G 

2g LETAS=> 2+ INT (RNOT 8) 

30 LET 8 = 1 + INTC RNO*9 

ag PRINT 

sg PRINT 

og FOR xX = 1170 

1gg 06S FOR Y=17T0 19 

119 PRINT AT Y,X; "_ "3 (one inverse space) 
426 =NEXT Y 

138°  =NEXT X 

148 LETC = 1 

158 LET O = 1 

174 «= PRINT AT «C,03"x" 

175 LleTS=S+1 

188 PAUSE 49 (delete this line if running in SLOW) 
199 PRINT AT C,D;"+" 

206 IF INKEYS = "?"° THEN LET C = C - 1 

219 IF INKEYS = “5" THEN LET D = 0D - 1 

228 4 =360IF INKEYS = "6" THEN LET C = C + 1 

238 IF INKEYS = "6" THEN LET OD = D + 1 


"Ss" THEN STOP 


248 IF C 41 THEN LET C 1 


258 IF C>1f THEN LET C = 19 
266 IF 04 1 THEN LET DO = 14 
278 = SCOoIF OFIP THEN LET D = 9 


268 IF A = C AND B = DL THEN GOTO 969 
298 PRINT AT 11, @;"GEIGER COUNTER READS * ";A8S(B = D) 


*7,29 +C +A 
3640 GOTO 179 


908 PRINT AT 13,33" YOU FOUND THE PLUTONIUM", "IN 
"oe % * IN # "353" % TRIES" 

919 PRINT AT 11,83"(32 blank spaces)" 

920 PRINT aT C,0;"p" (an inverse P) 

938 PAUSE Sad 

948 =CLS 

959 RUN 
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SPACE-BOY 


i1@8 PRINT 
4110 PRINT 


TAB (6); (aaa 


“IN THIS GAME. YOU HA 
“MANIPULATE THE FL tir 
“SPACE -BOY To ERASE .a 
“OBJECTS FLOATING AT 

TAB (8); "OF THE CAPSLI 


“KEY xX MOVES You TO T 
“KEY TO THE RIGHT” 

“YOU KEEP THE SPACE ~-E 
“IN FLIGHT BY BOLINCTAN 


238 PRINT TAB (43, “THE MOVING P 
LATFORM" 
248 PRINT 
ase ERINT “PRESS NEWLINE WHEN Y 
26@ PRINT TAB (4); “READY TO PLA 
2708 j<:INPUT AX 
64 Ls 
$@10@ FOR A=1 TO 1e0 
S@20 LET B=PIeA5 
5SQ30@ PRINT ATF 9292005 (B)332,7¢4857T 
N (6B) 417; “9 
S@S@ NEXT AR 
S@6@ CLEAR 
SO@62 PRINT AT 5,11; “aa. 
co PRINT AT 6,11; =e 
S079 PRINT AT 7.10; "2 eee 
@?S PRINT AT 8,11; "=e 
451 LET c=16 
$452 LET O=-18 
S453 LET SCoRE=98 
S455 LET A=-19 
5456 LET 8=21 
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5$51@ Ler 6 ~RND #5 tRND £5 
S520 IF INKEYS$="X" THEN LET D=D- 


BS 
SS2e5 IF 0<¢8 THEN LET p= 
pase IF INKEY$="M" THEN LET D=D+ 


SSSS CET C=c+ 
S600 PRINT AT A,B" " 
S71@ PRINT AT C;D+ai 7 ak 
5720 PRINT C4+1,D34; "5" 
S337 Te Ro@ THEN GOTO 6010 
574@ PRINT AT A.B" " 


S760 PRINT AT C+4+1,0+41; ~* “ 
S770 IF C=15 AND ABS (D-Bi3s2 THE 


N LET K=K-1 

S77S IF C+1=19 THEN LET F=-1 
S7S8S IF C=5 THEN LET Ex=3 

S8ee@ LET °§si0, 

$228 one AT 18,8;° ‘BY OU SCORED 
6e@is5 PAUSE 4eae0 


6@2@0 CLs 
6830 RUN 240 


ARRAYS 


Arrays, and the use of the DIM (dimension) statement can be puzzling. This 
statement is used when you need to set up a list with a ‘name’ (the name is a letter 
like A, B or whatever). For example, you might want the numbers 1 to 15 in a list 
named A, in the form LET A(1) = 1, LET A(2} and so on to LET A(15) = 15. 

To do this, you tell the ZX81 you need an array to hold these elements (1, 2 and so 
on to 15) by entering: 


10 DIM A(15) 


The number inside the brackets is known as the subscript and an element of the form 
F(2) or K(8) is called a subscripted variable. 


Here’s a Program, of sorts, to show the DIM statement: 


us DIM A( 1%) 
2¢ FOR 8 = 1 TO 19 
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3 LET a(s) = 2%8 
4g PRINT "AC"s83") = "sa(y) 
5g NEXT 8 


When you RUN this, you'll get: 


2 
4 -..andsoon,to... 


A(2 
ACW) = 29 


uu 


Change line 1@ to DIM A(5) and try the program again. This time, you'll just get to 
A(5) = 10. The program stopped at this point (giving the error code 3/3), meaning 
that the subscripted variable required, i.e. B = 6 to 8 = 11 was out of range). Change 
line 19 now to DIM A(29) and run the program once again. You will find you get 
exactly the same result as having DIM A(19). You change nothing (except for using 
up more memory) by having a larger array than you actually need. 


Now add the following lines: 


1 vIM AC 1) 


of INPUT BS 

7 FOR 2 = 1 70 15 

Bg LET ACZ) = 3*Z 

og PRINT "AC"523") = "3A(Z) 


19¢ NEXT Z 


When you RUN this, you'll find the same result through to A(1@] = 20 followed by 
the symbol asking you to input a string (or, as in this case, press NEWLINE). The 


ZX81 will then display: 
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The error code 3/80 will be displayed because the demand made on the array in line 
80 was greater than the array defined by line 19. That is, line 7@ made the next Z 
equal 11, and line 89 therefore wanted a subscripted variable called A(11) which, of 
course, it could not find because the array only had room for 10 elements. 


DERBY DAY 


The next program, DERBY DAY, uses an array (defined in the first fine) to store the 
positions of four tiny horses (inverse letters A, B,C and D) which canter up and then 
down a race track on your screen (or up and down a very rough facsimile of a race 
track). After displaying a points score at the end, the race track rolls away and 
another race is soon underway. 


W DIM A(4) 


20 SLOW 

38 FOR A = 1 TQ 22 

4g FOR C=1709 

By" PRINT "graphic A"; 

66 NEXT C 

76 FOR B = 1 TO 15 

8g PRINT "inverse space"; 
og NEXT B 


100 FOR C = 1 70 8 
11¢ PRINT "graphic A"; 


148 LET A = 12 
158 LET B= 15 
169 LET C = 18 


178 = LET D = 21 

188 §=©6GOTO. 230 

198 PRINT AT ABS(22 - A(1)), As"inverse space" 
208 = =9PRINT AT aBS(22 - a(2)), B;"inverse space" 
218 PRINT AT ABS(22 ae ),C3; “inverse space" 
228 PRINT AT ABS(22 - A(4)), O;3"inverse space" 
239 FORG = 1 7T0 4 

248 LET A(G) = 1 + A(G) + INT(RND*2) 

258 NEXT G 


268 PRINT AT nest 22 ~ A(1)),A 3"a" 
278 =PRINT AT ABS(22 - A(2)),8 3"B" 
28g = PRINT AT hast22 ~ A(3)),C 3"C" 
299 PRINT AT ABS(22 - A(4)),0 3"D" 


3¢¢ FOR N= 1 7T0 9 
378 NEXT N 
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328 =F A(1) < 42 AND a(2) < 42 AND A(3) < 42 
AND A(4) < 42 THEN GOTO 19¢ 
338 PRINT AT 3,2;"POINTSs A-"3A(1)3" * B-"5A(2)3" * Cos 
a(3};" * 0-"5A(4} 
344 FOR N= 1 TO 19% 
358 NEXT N 
368 = =6CLS 
378 RUN 


ALIEN IMPLODERS 


& 
fe rem eh 
SBR SEA SEA SBA SB 


5 LET U=e 
i9 GOSUB 1890 
@@ FOR K=1 TO 728 
qie® PRINT AT 3,.O;AGRSAT X.Y¥-2," 


2@@ LET As= ne te TO 3 +Agsiai 
3S@Q IF INKEY#=+="8° THEN LET Ys=Y- 


dail IF EINKEY $="S" THEN LET yY=Yr4# 
ea” IF IT.‘KEY$="2" THEN GOSUSE 5e@ 


5AS NEXT _K 
5.8 PRINT AT 12.9: "ese 


520 IF @>U THEN LET U=6 ; 

S3@ IF U<>@ THEN PRINT AT 1.0: " 
H EGHEST R SORES “3 

S42e DO=1 TO 6@ 

55a NEXT BD 

SSS PRINT AT 12.9; "“#25TAND #BY #% 


S56@ LET Z=RND+sERND 
_=f*8 PRINT AT i12,.9;" 


7698 GOTO 18 
29090 LET AG=" x x x ‘8 x M 
“M MM M fa 


1920 LET 3=8 
1Q@3@ LET x=18 
19408 LET Y=16 
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1@8@50 PRINT AY A.” 


ccd 


3860 PRINT AT @. 75" 


S080 RETURN 

See@e@ IF ASCYI <>" “ THEN LET S= 
i 

S@@Q2 IF Agtri="T‘ THEN LET S=S 
S@@Q3 IF AStY) ="M" THEN LEY 3=5 
SQQ5 LET Agtri=s" * 

SP08 FOR A=18 TO 1 STEP -3 
SQIa PRINT AT ALY. 2S 

BQ2Q PRINT AT A.Y;* 

SO30 NEXT A 

3Q4@ LET @=S?6453+4INT (RRND #3) 
Sea5@ IF @:Se@e@@ THEN PRINT AT @.7 
3“SCORE: “|; . 

5e7G IF ‘oe AND Yt THEN LET ¥= 
W+INT (RND#33-INT CRND#3} 

SS50Q@ RETURN 


SCORE: 6455 
HIGHEST SCORE: saree 


4 ba | xX Ox x -& SM M 


The ZX81 can also set up n-dimensional arrays (where n is a positive integer). A 
two-dimensional array is defined by a statement like DIM A(10, 10} which will give 
you 190, that is 10 X 10 subscripted variables, from 1,1 to 10, 10. 


HIDING IN 3-D 


In this program, you have to find the ZX81, which is hiding in a three-dimensianat 
array. To locate it, imagine the ZX81 is hiding in a cube measuring 19 X10 X 18. You 
enter three co-ordinates (one ata time, with NEWLINE after each), then the computer 
gives you feedback to allow you to modify your guess, You'll soon learn how to 
modify your guess. You'll soon jearn how to interpret the feedback, 


19 DIM AC 10,10, 10) 

28 LET 8 = INT(RND*19) + 1 

af LET © = INT(RND*1f) + 1 

4a LET A = INT{RND*19) + 4 

5 LET A(8,C,A) = 1 

6g FOR Z = 170 

76 PRINT "WHERE AM I HIDING?" 
ag PRINT "GUESS NUMBER * "57 
of INPUT O 7 

100 INPUT E 
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118 INPUT F 


129 PRINT 03" * * "3E;" # # "SF 
139 IF A(O,E,f) = 1 THEN GOTO 349 
149 PRINT "WRONG" 

159 PRINT "HERE IS A CLUE" 

169 FOR G = 1 TO ABS(B = D) 

179 PRINT “inverse space"; 

18g NEXT G 

199 PRINT 

200 FOR G = 1 70 ABS(C - E) 

218 PRINT “graphic A"; 

229 NEXT G 

238 PRINT 

248 FOR G = 1 TO ABS(A - F) 

258 PRINT "graphic 6"; 

269 NEXT G 

279 PRINT 

288 PRINT "PRESS NEWLINE FOR NEXT GUESS" 
299 INPUT AS 

300 CLS 

319 NEXT Z 

320 PRINT "NO GOOD" 

338 GOTO 358 

348 PRINT""yoU FOUND ME IN * "32 
358 PRINT "I WAS AT “38;" * "305" * "3A 
36g PAUSE 299 

378 CLS 

30g RUN 


BLASTER-MIND 1 


There are also character arrays. In the next program, BLASTERMIND, two character 
arrays (A$ and B§) are used. AG stores the four-digit code you have to deduce, and 
B$ accepts your guess. The program compares your guess with its string, element by 
element. 


The principle of this game is simple. The computer creates a string, which contains 
four digits. No two digits within the string are the same, and 9 is not used. You input 
your guess for the number as string B$, then press NEWLINE. A correct element in 
the correct location of the string will gain you a ‘black’, a correct element in the 
wrong position of the string scores a white. You have 1@ guesses to work out what 
the original string is. After each guess, the ZX81 prints out your guess, then gives you 
a black score (as an inverse digit) and a white score (a normal digit). Do not use the 
same digit twice within a single string. 


Ww DIM A#(4) 

28 om Bat 8} 

30 LET AB(1) = STRACINT(RNO*9) + 1) 
4g FOR A = 2 TO 4 

s@ LET AS(A) = STRZCINT(RND*9) + 1) 
69 FOR B =1TO0A - 4 

70 IF Ag(B) = AS(A) THEN GOTO 5¢ 
ag NEXT B 

og NEXT A 
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108 LET C¥ = Ag 

1g FORt£ = 170 W 

129 SCROLL 

139 PRINT "ENTER GUESS NUMBER * "sé 
149 INPUT 8% 


158 LET B=@ 

169 LET U = @ 

179 IF BZ = AX THEN GOTO 368 
189 FOR C = 1 TO 4 


199 IF Aes = ae THEN LET B = B + 1 
209 IF AS(C) = BZ(C) THEN LET AZ(C) = 
219 NEXT C 

229 FOR C= 170 4 

238 IF Ag(C) = "@" THEN GOTO 289 

240 FOR 0 = 170 4 

250 IF ag(C) <> 88(D) THEN GoTo 278 
269 LET Wut 1 

278 NEXT D 

289 NEXT C 

299 LET Ag = CZ 

308 SCROLL 

3 PRINT ,B8;" * "SCHRS(B + 156)5" * "su 

320 NEXT £ 

338 SCROLL 

349 PRINT "TIME IS UP" 

350 GOTG 389 

360 SCROLL 

378 PRINT "YOU WERE RIGHT IN * "5E;" * GUESSES" 
389 SCROLL 

399 PRINT "THE CODE WAS * "SAB 

409 PAUSE 20¢ 

41g CLS 

429 RUN 


BLASTER-MIND 2 


Here is another version of the same game, using only three digits. This version will fit 
within 1K. The digits @ to 9 are used (9 is not used in the four-digit game you have 
just played), but zero is never the first digit. As in the four-figure version, no digit is 
repeated. There is less ‘‘conversation” in this version, to get it into 1K, but you'll still 
find it fun to play (and a lot easier than the four-figure version). 


19 DIM AZ(3) 

20 DIM Bf(3) 

38 LET AZ = St ES Maa ad Sle 

35 IF aS(1) = A8(2) OR AS(1) = AZ(3) OR AZ(2) 


= ag(3) THEN GOTO 39 


4g FOR C = 170 19 

s@ INPUT BS 

6g IF AZ = BS THEN GOTO 279 
79 LET C% = 

8g LET B = 156 

98 LET w = @ 
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100 FOR DvD = 170 3 
1410 IF Ag(v) <> o8(u) THEN GOTO 14¢ 


129 LET B= Bt] 

130 LET as({v) = "2" 

149 NEXT i 

159 FOR D = 170 3 

169 FoR € = 170 3 

179 IF B82(0) €? aAs(E) THEN GOTO 299 


189 LET Ww =wu + 1 
199 LET ag(v) = "2" 

269 NEXT £ 

219 NEXT OD 

229 LET AZ = C¥ 

238 PRINT 82;" * * ";CHRS(B)s * * "Su 
248 NEXT C 

259 PRINT Ags 

2608 sToP 

270 PRINT AZ, “YOU GOT IT IN * "5C 


The two preceding programs have used character arrays. To get proper string arrays 
(where each element of the list is longer than just one character) you need to 
DiMension not only the number of words in the list, but also the length of the longest 
word you are going to need to put into the array. 


The next program -- ROCK, SCISSORS, PAPER — shows this in practice. Line 20, 


which is DIM A&(3,8), sets up an array of three words, each of which can be up to 
eight letters fong. 


ROCK, SCISSORS, PAPER 


It does not matter whether or not each word is as long as the second number in the 
dimension statement (the 8 in line 20} so long as no word has more letters than this 
_ Second number. 


Also, you can specify one of the words by just using the first digit. The ZX81 will 
assume you want every letter in the word, without you having to spell it out. 


We'll put in just the first part of the program which should make this clear. 


Enter the following: 


1g RAND 

2@ DIM AZ(3,8) 

39 LET AS(1) = "ROCK" 

4g LET AS I = "ScIssars" 
5¢ LET AZ(3) = "paper" 

6g SCROLL 

a PRINT ASC INT(RNU*3) + 1) 
8g GOTO 67 
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RUN this, and you'll see an endless series of ROCK/SCISSOR/PAPER words go 
belting up the screen. Stop the program with BREAK and enter the rest of the 
program (which will wipe certain lines in the above demonstration). 


6g LET P=@ 
0 LET C=@ 
ag INPUT A 
oP cLs 


19d LET 8 = INT(RND*3) + 1 

119 PRINT AT 7,1@;"YOU", AZ(A);TAB 1153P 
128 PRINT AT 14,11; "ME", AS(B)sTAB 115C 
138 PRINT AT 3, 123 

= B THEN GOTO 19g 

= 1AND8 = 2 OR A= 2 AND 8B = 3 
OR A = 3 AND B = 1 THEN GOTO 219 
169 PRINT "E WIN" 

179 LET C=C +1 

18g GOTO 8@ 

199 PRINT “DEAD HEAT" 

208 GOTO 8 

219 PRINT "YOU WIN" 

229 LET P= Pei 

239 GOTG ag 


You can play this game for as long as you like, bringing it to a halt by entering any 
fetter except A, B, C or P. To play it, keep in mind that ROCK will beat SCISSORS 
(as a rock can blunt scissors); SCISSORS will beat PAPER (for scissors can cut paper); 
and PAPER will beat ROCK (because a rock can be wrapped by paper). 


As you probably realised while you were entering the program, there is no skill in 
the game, on either the computer's part or the player's. P stores the player's score, 
and the computer’s score is stored in the variable C. Note the use of TAB in lines 
419 and 120. This allows you to get two lines of PRINT from one jine of program. 
The manual explains this (and further use of PRINT AT) on pages 115 and 116. 


While neither you nor the computer uses skill in that program, the next one 
demands skill from both of you — and a lot more skill is needed on the prt of the 
ZX81 than on the human's part. 
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CODEBREAKER 


It is an ideal game to play when you're tired of guessing the code the ZX81 has set 
up. You can get the 2X81 to guess one of yours. This program — CODEBREAKER- 
allows the computer to deduce a code of N digits, with the digits from 1 to L. In 
this listing, I’ve set N to 4 and L to 6, but you can alter them as you choose. The 
2X81 can cope with codes which include the same digit more than once. It will come 
up with acode, then the word “BLACK-=". Here you enter the number of digits it has 
correct, in the right place. It will then print WHITE = and you then tel! it any digits 
it has correct but in the wrong place. 


This program is very slow, so always run it in FAST. 


1 LET N= 4 

2 LET M = 6 

3 LETL =m 

5 DIM nen + 1) 
Ww OIM M(M*N) 

20 OrIm B(M 

3g DIM D(N 

ag orm wih 

Sd DIM HCN 

67 FOR Z = 1TON 
8g LET G(2) = INT(RNDO*L) + 1 
og NEXT 2 


189 FOR G = 1T0" 

119 FOR Z = 170 N 

128 PRINT G(Z)3 

139 LET M(N*G + Z - N) = G(Z) 
149 NEXT 2 

159 PRINT " * BLACKS ="; 

169 INPUT aff} 
179 PRINT B(G)3 
189 IF. B(G) - N THEN GOTO 229 

199 PRINT 

200 PRINT "CODE GUESSED IN * "3G3" * ATTEMPTS" 
219 stop 

228 PRINT " * WHITES= "3 

238 INPUT W(G 

240 PRINT w(G 

258 LET G(Z) = G(zZ) + 1 

260 FOR Z = 1-TO N 

278 IF G(Z) - L - 1 THEN GOTO 309 

280 LET ee = 4 

290 LET G(zZ + 1) = G(Z + 1) + 1 

308 NEXT Z 

310 IF G(N + 1) = 2 THEN STOP 

320 FOR Z TO G 


S) 


349 LET 23) = ote). + 3-N) 
3) = 
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400 IF 0(3) = @ OR H(3) = @ OR O(3) 
H(3) THEN GOTO 449 

41g LET of3} = @ 

420 LET H(3) = @ 

439 LET B=B+ 1 

44g NEXT J 

459 IF 8 ~ 6(Z) THEN GOTO 259 

46g FOR J} = 1 TON 

479 FOR K = 1T0N 

4ag If 0(3) = g OR H(K) = @ OR V(3) - H(K) 
THEN GOTO 52g 

49g LET 0(3) = @ 

Sag LET H(K) = @ 

S510 LET Ww =U + 1 

520 NEXT K 

S39 NEXT 3 

54g If w - w(Z) THEN GOTO 252 

550 NEXT Z 

569 NEXT G 


MOON LANDER 1, 2, and 3 


We wilf take another break from learning at this stage, and have a took at three 
versions of a very popular program — MOON LANDER. 


The space craft starts at a random height above the moon (1359 to 1549), with a 
random quantity of fuel (80 to 178.5) with a random velocity (@ to 19). If you are 
lucky, you'll get starting figures which make it easy to land. If not, you'll need al! 
your space-pilot skill to effect a successful landing. If you input too much thrust 
when prompted (line 2249) you'll have the great pleasure of exploding (line 2305). 
The variable names are chosen to make it easy to follow them through the program. 
Height is H, fuel is F, V velocity, T thrust and D duration. It is a good idea when 
writing programs to use variable names like this {or you can even spell them out 
in full if you want to consume memory) because they make it a fot easier to sort out 
what does what in a program when you return to it after several weeks. Note that 
lines 2191 to 2196 have the effect of stripping the values of F, H and V down to 
one decimal place before printing. 


2¢¢5 LET R 
2018 LET H 
2020 LET F 
2030 LET Vv 
2635 PRINT 
2848 PRINT "PRESS NEWLINE TO BEGIN DESCENT" 
2845 INPUT 
2847 CLS 
2948 LET T 
2059 LET OD 
2968 LET K1 = 1 

2998 CLS 

2995 FOR A= 1700 

2198 PRINT AT 16 ~ H/188, K1;" *% * * " 


g 

1350 + INT(RND*299) 
8B + (INT( RND* 499) /2) 
INT(RNUO*29) 


c 
nm 


ou 
_ 
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2191 LET F = INT( 1f*F) 
2192 LET F = F/19 
2193 LET H = INT(1@*H) 
2184 LET H = H/19 
2185 LET Vv = INT( 1p *v) 
2196 LET Ve v/ WW 


2197 IF R > BORH C€ 1 THEN LET H 

2196 IF R > @®ORH < 1 THEN LET A 

2199 PRINT AT @, @3" HGTs"SH3" * * VELS"3u; 
" * * FL:" 3F3" * * * 


2118 LET Vz +17 = T/3 

2115 LET K1 = K1 + RND 

2116 IF K1 > 26 THEN LET K1 = 29 

2128 LET H=H-V 

2125 If H > 1698 THEN GOTO 235 

2138 LET F =F - T/S 

2149 IF 2*(INT(A/2)) = A THEN PRINT AT 16 - H/16@, K13 
raphic Y graphic T" 

2145 IF axCin'(A72)) > A THEN PRINT AT 16 = H/1¥9, K1; 
“graphic 1 graphic ¥" 


2198 PRINT AT 16, @s"TIMEs"30 = As"nine graphic 7 
one graphic R four space one graphic €t 
seven graphic 7? one graphic R* 

2195 IF F € 1 THEN GOTO 23508 

2197 PAUSE 3¢ 

2229 IF H € WW AND F> @ AND v < 1M THEN LET R = 1 

2222 IF H < 188 AND V> 9 THEN LET R = 2 

2223 If F € 1 THEN LET R = 3 

2224 IF K > @ THEN GOTO 228¢ 

2228 NEXT A 


on 


2230 PRINT AT 19, @s"THRUST? * "3 

2235 INPUT T 

2258 PRINT 1," # DURATION? ( 11)" 

2268 INPUT D 

2265 IF D> 1M THEN GOTO 226% 

2278 GOTO 2999 

2288 IF R = 1 THEN PRINT “SUCCESSFUL LANOING" 

2299 IF R = 2 THEN PRINT " seven spaces CRASH LANDING", 
"DIGGING A * "SINT(V * 4.5)3" % METRE CRATER® 

2300 If R = 3 THEN PHINT "YOU HAVE RUN OUT OF FUEL", 
"GOOUBYE" 

2395 IF H> 1694 THEN PRINT "YOUR SHIP EXPLODED" 

2318 PAUSE 40 

2328 CLS 

2339 RUN 


Note that all the line numbers in this program lie between 2600 and 233Q. This is so 
you can, if you so choose, put this program with one of the others into a single bigger 
program, to enable you to load both programs at once. If you do this, you'll have to 
add a ‘menu’ which gives you the name of the two (or more) programs, with 
relevant GOTOs which depend on the program you choose. 


The above iunar lander has one disadvantage -- it uses fake formulae, chosen for 
their effectiveness in creating the game, rather than their relationship to ‘real life’. 
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The next landing program uses ‘proper’ equations, but has no display worth 
mentioning. Once you're used to landing the moon lander program above, input the 
following, and once you can land it successfully, work out your own display. The 
variables used are A (velocity), B (height) C (fuel) and T (thrust). The formulae used 


are: 


H =H + vt +74 at? 
2 


VeVv + at 


An input of 5 will cancel the effect of gravity. 


LET A = -2g - INT (RNDS6g 
LET B = 459 + INT(RNO*S@ 
LET C = 129 + INT(RND*3¢ 


PRINT AT 5, @s"HEIGHT * "383" * VELOCITY * "3A, 
“FUEL * ec;” * * ¥ 4 7” ~ 

IF C ¢ 1 THEN GOTO 18@” 

PRINT AT 19, 83"HOW MUCH THRUST?" 

INPUT T 

PRINT AT 19, 8;" 16spaces " 

IF T> C THEN LET T=9 


LET C=C -T 

LET B=B+A + (T = 5)/2 
LET A =A + (T - 5)/2 

IF 8 > @ THEN GOTO 49 


If aBS B < 5 AND ABS A < 5S THEN PRINT AT S, G3 
"VOU HAVE LANUED SAFELY" 
IF ag8SB8& 5S AND ABS A < 5 THEN STOP 
PRINT AT S, @;"HEIGHT * "383" * FUEL * "303" Sspaces", 
" 4@spaces " 7 ~ 
GOTO 199 
PRINT AT 5, @;"YOU HAVE RUN OUT OF FUEL" 
PRINT AT 19, @;"CRASHED AT * "SaBS aA;" * mps* 
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The final LANDER program has a display, and will fit within 1K. it uses a 
modified form of the formulae used in the preceding program. 


In this program, K is the position of space craft across the screen. F is the fuel, H 
is the height and Z the variable assigned to unPRINT the ‘old’ craft just before the 
new one is PRINTed into position. 


When using PRINT AT to simulate moving graphics, it is helpful to delay the 
unPRINT to the last possible moment, to keep the time the moving object is off the 
screen down to the minimum. The variable Z aids in this. 


ae LET K = 3 

28 LET F = 390 

25 LET Vv = 15 

3g LET H = 599 

4g LET Z =H 

S¢ PRINT AT 12, 15;"graphic E two graphic ? graphic 

6g PRINT AT 6, 25;"F * "sF3" * # *# ®sTag 25," H & M3 

Hy" * * * "stag 75;"y * TUF eee ~ 

7 PRINT AT (609 - 2)/59,K;" * * " 

ag LET K = K + RND 77 

a0 PRINT AT ( 680 - H )/50,K3"graphic T graphic y" 
Z=H 

119 INPUT T 

129 LET V=v+45-T 

139 LETH =H- VV 

14g LET F = F = ags(T) 

145 IF fF < 1 THEN GOTO 19¢ 

159 IF H > @ THEN GOTO 6¢@ 

169 IF V> 1@ THEN GOTO 199 

178 PRINT "LANDED * “3F - v3" _# POINTS * "3 

187 GoTo 17 

199 PRINT " * CRASHED AT * "sy; 

209 cota 19f °° °®©}©©””6) CO 


1 included three versions of this program to show you how different approaches 
tan alter the screen display, the player interaction, and the chance of player success. 
Now you've seen three somewhat different programs in action, write your own 
LUNAR LANDER. 


WRITING PROGRAMS 


Most books on programming suggest you start by drawing up a ‘flowchart’ — a pretty 
combination of circtes, diamonds and slanting rectangles -- which sets out the path 
and operations the computer will follow to execute the program. In theory this is 
fine, but in practice, especially when working with a computer like the ZX81, the 
time and trouble involved is probably not worth it. 


It is, however, essential to know exactly what you want the computer to do before 
you start creating a new program, even if you're not quite sure how you are going to 
get the ZX81 to carry out the task. 


Sometimes a rough sort of flowchart - just the main steps the ZX81 will take linked 
by lines and loops -- will help to clarify your thinking. This is also a good way of 
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R" 


spotting potential problems, like an infinite loop, or of not specifying the computer's 
task exactly. 


1 generally work out the ‘core’ of a program on paper, then enter it into the ZX81, 
starting at about line 19@ to leave plenty of room before it to assign variables, set up 
arrays and the like. If you’re working on a fairly simple game, or are adapting one 
from a magazine or book, it is just as well to work directly on the ZX81, but keep a 
notebook handy to record things like the fact that, for example, string A& is for the 
player's name. 


If you’ve got a 16K pack, don’t let its presence lead into sloppy programming habits. 
It is very easy to set up a long and clumsy set of IF/THENs which really should 
be replaced by an !F /THEN instruction to GOSUB. When you have memory to spare, it 
often seems too much trouble to bother cleaning up your programs. GOTO statements 
often cover a multitude of situations which arose because you did not give sufficient 
thought to the maximum line number you would need. When you examine a listing, 
be particular of any non-conditional GOTOs. 


The best thing you can add to a longer program is the element of surprise. If you 
can include situations which do not occur every time a game is played, you'll ensure 


the game will remain interesting for a much longer time than would be the case if 
every situation was triggered every time a game was run. 


You can speed up slow-running games to some extent by placing often-used 


subroutines at the start of the listing. The program will run a little faster because the 
computer must search through the whole listing when it comes across a GOTO or 


PAINT j“emttrery> , 
RETURN 

FRONT * TURNING”; 
RETURN 

PRINT “GRAVES”, 
RETURN 

PRINT “THe” 
RETURN 

PRINT “THEN”; 


SHoAsASHE 


GOSUB command. if the subroutine is near the start of the listing, the ZX81 will not 
have to go through, say, the instructions every time it searches for a subroutine. 


You can make the first line of the program GOTO some line number to jump over 
the subroutines. Variables which must be assigned at the start of a game can actually 
be listed right at the end of the program, ending with a GOTO lfeading back to the 
start of the game part of the program. 


Another way of improving programs, and of making them more interesting to 
players for a longer time, is to add a ‘‘degree of difficulty’’. Make sure that this 
feature really does increase the difficulty of the game, and ensure that -- even at the 
highest level of play -- the final score is reasonably attainable. 


You can add further interest to games by awarding points, or scores, ratings or 
whatever, that are genuinely related to the speed or skill the player demonstrated. 
A further twist is to award a ‘rank’ (like ‘star fleet captain’ or ‘incompetent fool’) 
to the player, depending on how well he or she did. Points and ranks ensure a player 
remains interested in a game for a longer time, as the player will try to best his or 
her best score or ranking. 


Keep these points in mind when improving the programs given in this book, or when 
writing your own games. 


41 


NOUGHTS AND CROSSES 


You probably know how to play this game. Moving alternatively, players put either 
a zero or a cross in a position on a 3 X 3 grid, trying to get three in a row in any 
direction, 


tn this version ~ which just squeezes into 1K -- the computer always goes first, taking 
the top left hand square. 


Despite the brevity of the program, the ZX81 is unbeatable, although you will draw 
with it from time to time if you are a good player. To play, you just touch the 
number relating to the square you want to move into, and it will instantly change 
into a zero. The ZX81's response will be almost instantaneous. 


The ZX81 will not know when it has won, as a routine to detect this would have 
made the program exceed 1K. if you have a 16K pack, you might like to try and 
incorporate a ‘1 WIN” and “ITS A DRAW’ routine. 


At first sight, NOUGHTS AND CROSSES might seem a relatively easy game to 
program, but in fact it is not simple at all. And it is more difficult to write a fallible 
program than it is to write a game which is virtually unbeatabie. 


According to the book “COMPUTERS, THEIR IMPACT AND USE", by Robert E. 
Lynch and John R. Rice, there are 362,889 possible different games of noughts and 
crosses. This program will play 40,320 of them. 


Note that in this listing @ equals an inverse space, and * equals an ordinary space. 


WW PRINT "tigen 
2g PRINT "#x¥Q*2¥Qegt 
3g PRINT "xe gtang! 
4g PRINT "aaeaaaadaaaa" 
iT? f PRINT "t8t Qe 
69 PRINT "4Hge5eatG" 
mW PRINT "HHH getty! 
ag PRINT “@aaaaaaaaaa"™ 
og PRINT "### gee" 
198 PRINT "*7*#atQeQng" 
119 = PRINT “x#geeeg" 


128 GOSUB 2¢¢@ 
139 LET AZT - 1 
149 LET B =T 


Note that in the next line, each character refers to the graphics character from that 
key. 


150 LETT = CODE” 

graphic 4 graphic E graphic A graphic 1 graphic T graphic 5 graphic 2 graphic 7 
graphic E graphic 7 graphic 2 graphic T graphic A graphic 4 graphic 1 graphic § 
graphic A graphic E graphic 4 graphic 7 graphic T graphic 5 graphic 2 graphic 1 
graphic E graphic T graphic § graphic A graphic 7 graphic 2 graphic 1 graphic 4 
graphic E graphic A graphic 4 graphic 7 graphic T graphic § graphic 1 graphic 2 
graphic T graphic 4 graphic § graphic 2 graphic 7 graphic 1 graphic A graphic E 
graphic 4 graphic E graphic 5 graphic 1 graphic 7 graphic A graphic 2 graphic T 
graphic Lgraphic A graphic 4 graphic 7 graphic E graphic 1 graphic § graphic 2 
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169 LET X = 61 

178 GOSUB 249 

188 GOSUB 208 

199 GOTO 149 

268 LET x = 52 

218 IF INKEYS <> "" THEN GOTO 219 

228 ~=3OIF INKEYS = "" THEN GOTO 229 

230 LET T = CODE INKEYS - 29 

249 PRINT AT CODE” 

graphic 1 graphic 1 graphic 5 graphic 5 graphic § graphic D graphic D graphic 
D'(T), CODE ” 

graphic 5 graphic OD graphic 1 graphic 5 graphic D graphic 1 graphic § graphic 
DT); CHRS(X) 


258 RETURN 


If you’re running this program on a new ROM 2X80, change the following lines: 


218 PAUSE 49000 
228 + =POKE 16437, - 1 


ROLLER-BALL 


A ‘ball’ is sent scooting across the screen to come to rest on the back board. Its 
position determines your score. RUN it to find out how to play it, and to work out a 


strategy to get the maximum score. 


1g PRINT TAB 9;"ROLLER-BALL" 

2g LET H = 3 

3 LET F = 1f*(RND*5) + 1 

4g FOR G = 170 19 

sg PRINT "THIS IS ROLL NUMBER * "3G 


6g LET F = F + 3*RND 


76 PRINT AT 11,@;"WHERE WILL YOU ROLL (1 TO 194)?" 
8g IF G> 1 THEN PRINT AT 18,8;"LAST ROLL WAS TO * "30 


og = LET C= 1 

19g INPUT D 

118 IF O ¢ 1 ORO)D 188 THEN GOTO 144 
128 «CLS 

138 FOR E = 170 18 


148 PRINT AT @, @3 (note all these are inverse) "111117? 


OPPV11177PTERHPPPPTIIVITE 
158 PRINT AT 18 - E, C3CHRZ(43 + £) 
176 IF £ < 18 THEN PRINT AT 18 - £,C;" * " 


198 «LET C = C + D/F 

198 IF C > 31 THEN PRINT AT 13,12;"WILD BALL” 
208 «OIF C > 31 THEN LET C = 1 

218 NEXT E 


228 «=6oIF C< 6 OR C> 9 AND CK 16 OR C > 25 THEN LET K 


43 


238 


248 
258 
269 
278 


288 


IF ey S AND C (1PM OR CY 15 AND C < 19 
OR CY 22 AND C < 26 THEN LET K = 9 

If C > 18 AND CX 23 THEN LET K = S@ 

PRINT "YOU SCORED * "3K 

LET H=H+K 7 

IF G > + THEN PRINT "TOTAL SCORE: * "3H3" * FROM # "; 
G3" * ROLLS" ~ ~ ~ 

NEXT G 


HIGH-FLYER 


If you wish to start ‘improving’ games in this book, begin with the next program. As 
you'll see when you RUN it, there is no player interaction. Once you've pressed 
NEWLINE following RUN, it’s just a matter of sit back and watch. 


You could add a PRESS NEWLINE FOR NEXT SPIN routine, or if you feel 
excessively creative, you could add a HOLD option. If HIGH-FLYER runs too fast 
for your liking, add a loop FOR N = 1 TO 5@ NEXT N. 1’Il leave it up to you to work 
out where the loop should go. 


PRINT TAB S;"££ HIGH-FLYER ££" 

PRINT 

PRINT "ITS FRUIT MACHINE TIME, I HOPE" 
PRINT " * * * YOU HAVE GOOD REFLEXES" 


PAUSE 208 

LET m = (INT(RND*2f) + 16)/2 
CLs 

PRINT "YOU HAVE E£"3mM3" * TO START" 
LET C =@ 7 

LET D=@ 

LET E =@ 

LET F=@ 

PRINT 

PRINT 

PRINT 

PRINT TAB 5; 

FOR Z = 170 4 

LET B = INT(RND*4) + 1 

If 8 = 2 THEN GOTO 269 

IF 8 = 3 THEN GOTO 29¢ 

IF 8 = 4 THEN GOTO 329 


LET C=C + 1 

PRINT " * £££ 32 spaces £££ 
GOTO 348 

LET D =O +1 

PRINT “ * three graphic T 32 spaces 


three graphic Y * "; 
GOTO 349 ~ 
LET EFE + 1 
PRINT " * three graphic A 32 spaces 


three graphic A # 4M; 


ix 
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3 
326 
33g 
34g 
35¢ 
366 
379 
38g 
399 
400 
41g 
426 
43g 
44g 
450 
468 
476 
408 
49g 
548 
51g 
520 
539 
548 
558 
56g 
578 
58g 
599 
698 
619 
628 
638 
64g 


669 
676 
688 
699 
768 


GOTO 349 
LET F =F + 1 


PRINT " * B32 $ 32 spaces 8 $$ * "3 
PAUSE Sf” 


1 AND F = 1 THEN GOTO 459 
OR F = 4 THEN GOTO 4597 

Ir Cc OR F = 3 THEN GOTO S#@ 

LET S = (INT(RNO*4) + 1 

PRINT TAB &;"YOU LOSE &" 

LET MEMS 


GOTO 55¢ 
PRINT TAB 9;"£ JACKPOT £" 
PRINT 


LET M=M + 16 

PRINT Tas 9:"YOU WIN £19" 

GOTO 55¢ 

LET M=mM + 4 

PRINT 

PRINT TAB 11;"3 GF A KIND" 

PRINT 

PRINT TAB 8;"YOU WIN £2" 

IF M41 THEN GOTO 649 

IF M> 25 + RNO*3@ THEN GOTO 679 

PRINT 

PRINT TAB 11;"YOUR STAKE: £°3™ 

PRINT 

PRINT "STAND sy" 

PAUSE 299 

CLS 

GOTO 194 

PRINT “END OF GAME, PUNTER,"," * * * * * YOU ARE 
BROKE" ~ 


GOTO 68g 

PRINT “YOU HAVE BROKEN THE BANK", , "WITH E"5™ 
PAUSE 49¢ 

cLS 

RUN 


BUN FIGHT 


The random number generator cooks up an ovenful of buns, which you and the ZX81 
proceed to scoff. There is a limit to how many buns you can eat at a time, and the 
loser is the person who eats the last bun. It is fairly easy to write a program which will 
never lose this game, but such a program rapidly becomes boring, if not infuriating. 
Therefore, the program has built-in fallibility, although it will still win more than half 
the games it plays. 


wo fe] NOM RUIN = 


N wee eed eo wow 
BwWOODvsnunF&wAn-R 


NN NNN 
OP WN— 


w NNNN 
BR wWOnna 


AUwUUAw 
Oban 


PRINT TaB(8);"_BUN FIGHT " 


SLOW 

LET M=@ 

LET E =@ 

LET Z = 1f + INT (RNDO*2¢) 
LET H = 3 + INT(RND*3) 


IF M = @ THEN PRINT “SCONES LEFT * "32 ,,"THE MOST 
YOU CAN _TAKE Is * "su 

IF E> @ AND M = @ THEN PRINT “YOU TOOK * "5e,, 
"Y TOOK * "sq 

FOR K = 170 2 

PRINT “two graphic S * "; 

IF RND > .6 THEN PRINT 

NEXT K 


PRINT 

PRINT 

IF M = 1 THEN PRINT TAB(8);"_YOU WIN " 

If ™M 2 THEN PRINT TaB (12);" 1 WIN" 

If ™ > @ THEN GOTO 15 

PRINT 

PRINT “HOW MANY WILL YOU TAKE?" 

INPUT E 

IF —€ <1 OR ED H THEN GOTO 2g 

LET Z=2-€E 

IF Z > @ THEN GOTO 26 

LET M = 2 

GOTO 34 

LET Q = Z - 1 = INT((Z = 1)/(H + 1))*(H + 1) 

IF Q@ = @ AND Z <> 1 THEN LET Q = INT(RNO*H) + 1 

IF Q> = Z THEN GOTO 27 

If Z > F + 2 AND RND > .4 THEN LET Q = Q + INT 
(RNO#2) = INT(RNO*2) 

If @> HOR Q < @ THEN GOTO 26 

IF Q = @ THEN LET Q = 1 

LeT Z2=2 -Q 

IF Z2 = @ THEN LET M = 1 

cLs 

GOTO 7 


Here’s a slightly simpler version of the same program, which fits in 1K, and which 
gives the player a somewhat better chance of winning. After the first version, you'll 
find a modification which gives you a very good chance of winning. 
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TIMBO NIMBO 


av] LET M = B 

28 LET E = @ 

3g LET 2 = 15 + INT (RND*I9) 

49 IF 2*INT(Z2/2) = Z THEN GOTO 39 

5g LET H = 3 

6g IF € > @ THEN PRINT AT 7,0;"vYOU TOOK * ";e, 
"tT TOOK * "3Q ~ 

7¢ FOR K = 1 702 

ag PRINT Kz" * graphic 2 graphic 1%; 

og IF AND > .6 THEN PRINT 

wg NEXT K 

4110 INPUT £ 

129 LET Z2= 2 -E 

139 IF 2 = @ THEN PRINT ,"I UIN® 

140 If Z= 9 THEN STOP _ 

199 LET 9 = 2 - 1 = ENTC(2 - 1)/(H + 4) )*(H + 4) 4 
INT(RND*2) 

160 If Q@ > ZOR GQ = @ GR Q = 4 THEN GOTO 159 

4178 LET Z=2-94 

189 IF Z = @ THEN PRINT ,"¥Ou WEN® 

199 If Z = @ THEN STOP — 

20 CLS 

219 GOTO 6g 


There is no change from game to game in the maximum number you are allowed to 
take — it is set at 3. To give yourself a much better chance of winning than you get 
with the above version, make the following changes: 


159 LET Q = INT(RNO*3) + 1 
169 If G > Z THEN GOTO 157 


DEDUCTO 


A very brief 1K program in which you have 10 guesses to find the number (between 
1 and 200) chosen by the ZX81. The clue given in line 96 takes a bit of getting used 
to, but once you've played three games, you should be able to ‘read’ it without any 
difficulty. Notice how SCROLL is used to ensure you do not run out of screen, A 
SCROLL must be included in a program like this before every PRINT statement. Try 
leaving one out and see what happens. —— 
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1g LET A = INT(RND*299) + 1 


20 IF RND > RND THEN GoTO 19 

39 FOR 8 = 1 TO 1f 

49 SCROLL 

5@ PRINT "GUESS NO. * "38 

6g INPUT C 

78 SCROLL 

eg IF C = A THEN GOTO 119 

99 PRINT "WRONG * "5C, "CLUE- * ";SQR(ABS(A ~ C)) 


188 NEXT 8 

119 SCROLL 

429 PRINT A, 

139 IF C€? A THEN STOP 

149 PRINT "YES, YOU GOT IT IN * "36 


INCREDIBLE DISAPPEARING 
RAM 


Remove the display from GEIGER, change the program just a littte, and you have a 
1K game in which you try to find a missing RAM chip on a 15 X 15 grid, using 
nothing but your wits and a patented RAM-detector. 


1@ LET A=INT (URND#15) +1 
2@ LET B=INTF (RND#25) +3 
3@ LET C= 


S@ SCROLL 

6@ PRINT “SEARCH ";C 
7@ INPUT DB 

6@ INPUT 


Ee 
90 ITF A=b AND B=E THEN GOTO 16 


a 
168 SCROLL 
11@ PRINT “ "SDs" “Ges” 
Bee ROLL. 
1$@ PRINT “DETECTOR READS: “; (A 
-D) +(B-E) 41@ 


198 PRINT “YOU SCORED “; 3@@-92C 
2090 GOTO 168 


In this program, the RAM is hidden at A and B, with C counting the number of guesses 
you make. Line 130, the ‘RAM detector’ gives a very useful read-out, and within 
two or three games you should have mastered its output. Note that unlike some 
‘hunting on a grid’ games (such as HIDING IN 3-D) there is no limit to the number of 
guesses you can make. However, you should obviously try and find the RAM in as 
short a time as possible. Your score (line 199) is directly related to the number of 
attempts you had to make to find the thing. 
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CHEMIN DE FER 


Baccarat was first introduced into France from Italy in about 1490, during the 
reign of Charles VIII. It is most unlikely, historians say, that Charles played it on a 
ZX81,. The Italian game was called Baccara, and this garme ~ Chemin de Fer ~ is a 
distant cousin of the old favourite. 2X81 Chemin de Fer is based on a dice version of 
the casino game which is usually played with cards. You and the ZX81 ithe banker) 
rall five dice each, |f any die comes up 2 or 5, it must be rolled again. You add the 
pips on dice which did not come up 2 or 5, and add to this the total of the pips from 
the dice you've rolled again. 


H a die comes up 2 or 5 a second time, it counts as zero. The aim is to get as close as 
possible to 9, or to get a two-digit number ending in 9. The program automatically 
strips a two-digit number down to its final digit. The program allows 9 winning games, 
with dead-heats not counted, 


1g LET B1=@ 

28 LET Pt =@ 

ag GOTO 349 

4g LET D = g@ 

59 LET C=¢@ 

6g FOR G= 170 5 

a | LET A = INT(RND*6) + 1 

af IF A = 2 0R A = § THEN LET C=C + 1 
og IF A = 2 0R A = 5 THEN LET A = @ 
10¢ PRINT A; * "; 

110 LETD=OFA 

129 NEXT G 

130 PRINT 

4140 PRINT D3" * * "; 

4159 IF 0> 9 THEN LET‘D =D - af 

169 PRINT D 

178 IF D> 9 THEN LET D =D - Ff 

189 PRINT "TOTAL ON FIRST ROLL 185 * "30 
499 IF D = 9 THEN PRINT ,"LA GRANDE" 
200 IF BD = & THEN PRINT ,“LA PETITE" 
216 IF D = 7 THEN PRINT , "NATURAL" 
220 IF C = @ OR D = 7 GR D = 8 OR O = 9 THEN RETURN 
230 PRINT "MUST ROLL * "ses" * AGAIN" 
246 FOR A=17T0C 

258 LET &€ = INT(RND*G) + 1 

260 IF E = 2 OR & = 5 THEN LET E = 9 
270 LET D=SDeE 

2a9 NEXT A 

299 PRINT O34 * # "; 

309 IF 0% 9 THEN LET D =D - 14 

31g PRINT O 

329 IF O0> 9 THEN LET 0 = 0 - 19f 

339 RETURN 

34g PRINT "BANKER" 

358 GOsUB ag 

369 PRINT “FINAL TOTAL * "30 
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370 INPUT AZ 


389 LET D=0 

399 PRINT "PLAYER" 

498 GOSUB 4g 

495 PRINT "FINAL TOTAL * "3D 

4g INPUT AX 

42g PRINT "BANKER", "PLAYER" 

438 PRINT 3, 0 

449 IF 3 = D THEN PRINT “STAND~OFF" 
458 IF 3 = D THEN GOTO 519 

469 IF J > D THEN PRINT "BANKER"; 
479 IF 3 > D THEN LET 81 = B1 + 1 
46g If 3 << O THEN PRINT "PLAYER"; 
499 If 3 < D THEN LET P1 = P14 1 
5¢d PRINT " * WINS® 

519 PRINT "TOTALS" 

529 PRINT B1, P1 

539 IF 61 + P1 = 9 THEN STOP 

549 INPUT AZ 

S55¢ CLS 

56g GOTO 349 


BUILDING A LIBRARY 


hgrpenn wee rg 


SAVE each program before you RUN it, just in case you've programmed in an error 
which will make it crash and vanish, 


Resist the temptation to put all your programs on one cassette, one program after 
another. The frustration you'll experience while waiting for the ZX81 to find a 
particular program {assuming you are able to remember which code name you've 
given to each program) is not worth the money you'll save on cassettes. 


Go to a computer shop (or buy by mail from one of the companies which advertise 
in the monthly computer magazines) and get a set of C-12 cassettes. Put just one 
program on each cassette, with at least two copies of each program on each side, just 
in case something happens to one of your copies and you find it difficult, or 
impossible, to LOAD. 


Write the name of the program on the cassette and on the cardboard insert, along 
with the ‘code name’ under which you've saved it. You'll find this makes it very 
easy to find the program you want, and as your library builds, it will give you 
quite a feeling of accomplishment to see all those programs ranked side by side. 
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THE ASHES 


Fve pitched (!) England against Australia in this program, but there's no reason why 
you can’t substitute the team names of your choice. You might prefer to rewrite the 
program slightly so that, when you first run it, it asks you to input the names of each 
team. If you decide to run this in SLOW, and delete the PAUSE statements, add a 
toop for N = 1 TO 30 NEXT N between lines 1170 and 11890. 


1d 
1928 
1p 38 
194d 
1958 
1968 
1978 
1969 
412¢ 
4135 
1137 
1149 
4158 
1155 


1157 
1178 
1188 


1265 
1297 
1219 
41211 
1212 
1213 
1214 
4217 
122¢ 
1238 
124g 
1245 
125¢ 
1255 
4257 
1269 
1278 
1289 
1299 
1295 
4297 
1310 
1320 
1338 
1334 
1348 
1359 


PRINT AT 3, 9;"THE ASHES" 

GOTO 134¢ 

PAUSE 149 

LET B=B +? 

IF 8 = 7 THEN LET C = C + 1 

If 8 = 7 THEN LET 8 = 1 

CLS (Delete this line if deleting PAUSE) 

LET — = INT(RND*7) + 1 

If & > 6 THEN GOSUB 1245 

IF A = 2 THEN PRINT AT 11,5s"AUSTRALIA: * "3A(4) 

PRENT AT 9, Ss"ENGLANDs * "3A(3) 

If RAND? .5 THEN LET E = @ 

PRINT AT 13,5;"BATSMAN * "3D 

PRINT AT 15,5;"QVER - "303" * * * BALL ";CHRZ(B + 
156) ;"_" 

PRINT AT 17,5;"RUNS FROM BALL 

LET ACA +2) = AC At2) +E 

GOTO 1934 


ix 


"38;" - Wee 


LET P = INT(RNO*3) + 1 

cLs 

FOR Y = 1 10 6 

PRINT AT 12, 93" BATSMAN * "3D;" * QUT" 
PAUSE 19 ~ 

PRINT AT 12,9;"BATSMAN "303" QuT” 

PRINT AT 1 6, 9; NEHER EREH EE 

PAUSE 19 

IF P = 1 THEN PRINT AT 16,173" RUN OUT ™ 
IF P = 2 THEN PRINT AT 16,113" CAUGHT 


IF P = 3 THEN PRINT AT 16,113" BOWLED ® 
NEXT Y 

LET O =D +1 

PAUSE 2¢¢@ 

CLS 


IF 0 = 11 THEN GOSUB 1429 

IF A <3 THEN RETURN 

CLS 

PRINT TAG(8);"END OF GAME" 

PRINT 

IF a3) Y ata) THEN PRINT "ENGLAND * ®; 
IF A(4) > aA(3) THEN PRINT "AUSTRALIA * "; 
PRINT "WINS BY * "3aBS(A(3) - AC4))3" * RUNS" 
PAUSE 799 ~ 
RUN 

DIM a(4) 

LET A = 1 
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1368 
1379 
1388 
1398 
1490 
1416 
1429 
1425 
143¢ 
1435 


1437 
1448 
1450 
1468 
1476 


LET 8 

LET C 

LET D 

LET ab3} =@ 

LET aC4) = @ 

GOTO 1f3¢ 

LET A= A 41 

CLS 

LET B = 1 

IF A = 2 THEN PRINT AT 13, 43 "ENGLAND ALL OUT 
FOR * "3a(3) 


g 
1 


PAUSE 2¢@¢ 
LET C = 1 
LET D = 1 
CLS 
RETURN 


ca 


2 Pip, 


way 
1G? 


MT 
ee 


DIGITAL CLOCK 


This short program makes effective use of PAUSE, it is written only to run in the 
FAST mode, but if you prefer the smoothness of SLOW, you can delete line 170 and 
replace it with a small loop which will allow a SLOW clock to keep reasonable time. 
This clock does not keep very accurate time, but is a good demonstration of the 


2X81. 


52 


348 
35 


GOsus 208 

PRINT 

PRINT 

PRINT 

PRINT TAB(8)sH3"3"3 

IF 1 <1 THEN PRINT "a"; 
PRINT M5"3";5 

IF S << 1 THEN PRINT "g"; 


LET S=S +1 


IF S = 68 THEN LET M=M + 1 
If S = 68 THEN LET S=@ 

IF M = 6M THEN LET H = H + 1 
IF M = 69 THEN LET M = @ 

IF H = 13 THEN LET H = 1 
PAUSE 33 

CLS 

GOTO 38 

PRINT 

PRINT 

PRINT TAB(8);"OIGITAL CLOCK" 
PRINT 

PRINT "WHAT IS THE TIME:" 
PRINT 

PRINT "IN HOURS?" 

INPUT H 


IF H > 12 THEN GOTO 279 

PRINT TA8(6)3;H3;" * AND MINUTES?" 
INPUT 

IF M > 59 THEN GOTO 368 

PRINT M3" * AND FINALLY, SECONDS" 
INPUT S 

IF S > 59 THEN GOTO 339 

RETURN 


ARTIST 


This little program plots a number of inverse spaces on the screen. Their positions 
depend upon which key (5, 6, 7 or 8) you press. The loop FOR N = 1 TO 10 NEXT N 
is included to slow the thing down. Without it you'll possibly find it runs too fast to 
control effectively. However, you can remove the loop if you like, or make it longer 


or shorter. 

Ww SLOW 

20 GOsUuB 18g 

3g PRINT AT Y, X3CHRZ(K) 

4a LET PS = AZ 

Sg LET AS = INKEYS 

68 If Ag = "" THEN LET AS = PZ 
79 IF AZ = "2" THEN-CET Y = Y - 1 
ag IF ag = "6" THEN LET Y = Y + 1 
og IF ag = "S" THEN LET X = X = 1 
199 If Ag = "8" THEN LET X = X +1 
110 IF X € 2 THEN LET X = 2 

128 IF X > 31 THEN LET X = 31 
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130 IF ¥ € 2 THEN LLT ¥ = 2 


149 If Y> 2@ THEN LET Y = 2G 
15d FOR N = 71170 19 

164 NEXT N 

176 GOTO 3g 

1898 LET X = 16 

199 LET Y = 7 

200 LET K = 128 

218 LET ag= 

220 RETURN 


The subroutine (from line 18@) places the initial blob (at 7, 16) and determines that 
CHR&(128)’s will be plotted. By all means change the starting position and the nature 
of the beast (or make them random if you prefer). 


saves 


Scavez 


SC ALEs 


SCaee 


[F- 


BACK-STABBER 


This program is self-explanatory (and good fun to play). 


| LET 0 = 2 

2g FOR F = 170 Sf 

3g PRINT AT 19,183;"STAND BY" 

af PRINT AT 18,183"STAND BY" 

5g NEXT F a 

79 CLs 

6g LET A = He Breet +1 

9g LET 8 = INT(RNO*1f) + 1 

198 If NOT ABS(B - A) > 1 THEN GOTO 99 


114 LET C = INT(RND*1f) + 1 
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128 If C = A OR C = 8 THEN GOTO 119 


130 PRINT "MY FIRST NUMBER 15 * "3A 

149 PRINT TAS 8;"MY SECOND IS ¥ "5p 

159 PRINT 

160 PRINT TAB 8;"YOU HAVE £30 

174 PRINT 

169 PRINT "HOW MUCH DD YOU BET MY NEXT" 

199 PRINT "NUMBER LIES BETWEEN * "sas" * AND * "sa, het 

208 INPUT £ ~ ™ 

219 IF E > O THEN GOTO 20 

228 IF E < .#1 THEN PRINT , "COWARD" 

230 FOR F = 1 TO SM 

24 PRINT AT 19,193 "THINKING" 

258 PRINT AT 19,18; "THINKING" 

266 NEXT F 

278 PRINT AT 19,18;"aight spaces" 

20g PRINT 

299 PRINT "MY NUMBER 15 * "3c 

300 IF E € 4 THEN GOTD 29 

aig If C> A AND CC €B ORC “A AND COD 8 THEN PRINT 
"WELL DONE, YOU WIN £%:2*5 

320 IF C} A AND CS 8 OR C&A AND C > B THEN LET 
DD + 2#E 

338 IF C> A AND C< BOR C> A AND C% B THEN GOTO 29 

34p PRINT "SORRY, YOU LOSE £*;£ ~ .5 

358 LET D=D-£ + .5 

36g IF D> .5 THEN GOTO 2¢ 

370 PRINT "YOU ARE BROKE” 


ZOMBIES 


A solid black square appears on the screen. Swamps appear (grey squares), then 
zombies {inverse asterisks} then you {an inverse A}. As you watch, the zombies start 
moving towards you. No matter where you go on the board, they will move towards 
you. Your only escape is to trap them into walking into swamps. You cannot cross 
the swamps either, but at least you can see them. The zombies are blind, and there 
lies your only hape, 


The initial board is set up at random, except that the subroutine from 1906 produces 
biased random numbers putting everything roughly in the right place {i.e. you around 
the centre, a generous Scattering of swamps, and the zombies outside the swamps). 


You move in the directidns shown on the arrows 5, 6, 7 and 8 by touching the key of 
your choice once. To move diagonally, use the shift key, then 5, 6, 7 or 8. You will 
move at 45 degrees anticlockwise to the arrow by holding shift down. You can only 
make one move at a time, and must wait till all the zormbies have moved until you 
move again. If a zombie gets you, by landing on top of you, the program goes into an 
infinite loop. You'll need to press BREAK to get out of the loop. 


1 RAND 

5 OLN xX 2} 

6 pm aes 

1a PRINT ¥ # * * * tuenty-two graphic H" 
20 FOR Z = 1 TO 2 
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338 


3M 
332 
333 
334 
34g 
358 
360 


3708 
36g 
398 


1000 
191d 


PRINT " * * * * graphic H twenty inverse space 
graphic H" 

NEXT 2 

same as 19 

FOR Z = 170 42 

LET A = 15*INT(Z/21) + 136 

GosuB 19@¢ 

IF INTee 1} = 

IF INT(Z/21) = 

NEXT Z 

LET U = X 

LET Vv = Y 

IF INLEYS = "" THEN GOTO 169 

LET B = CODE INKEYS 

IF B = S6 THEN STOP 


1 THEN LET X(Z - 29) = Xx 
1 THEN LET Y(Z2 + 29) = Y 


IF (8 = 33 OR B = 112 OR B = 114) AND U> 1 THEN 
LET U=U - 4 

IF (8 = 34 OR B = 113 OR B = 114) ANU Vv < 2 THEN 
LET VEVe+1 

If (B = 35 OR B = 112 OR B = 115) AND V>1 THEN 
LET V=V- 1 

IF (8 = 36 OR B = 113 OR B = 115) AND UM 29 THEN 
LET U=U +1 

PRINT AT Y¥, X + 4;"inverse space" 

LET X =U 

LET Y= 

PRINT AT Y, X + 43"inverse A" — 


s 
FOR Z = 170 21 
IF xX(Z) = @ THEN GOTO 35¢ 
PRINT AT Y¥(Z), X(Z) + 4;"inverse space" 
LET S=@ 
IF xX(Z) = U THEN LET S=(x(Z) - U)/ABS(xX(Z) - U) 
LET T= @ 
IF ¥(Z) - V THEN LET T = (¥(2) = v)/aes(y(z) - v) 
LET 12) X(Z) - S$ 
LET ¥(Z 


tou 
“kg 
_—— 
~ 
~~ 
4 
~~ 


PRINT AT ¥(Z), X(Z) + 4; 

LET AZ = CHRS PEEK( PEEK 16398 + 256*PEEK 16399) 
IF AZ = "graphic H" THEN LET X(zZ) =9@ 

IF AS = “inverse A" THEN GOTO 37¢ 

IF x(2) THEN PRINT "inverse asterisk" 

NEXT Z 

GOTO 138 


PRINT AT Y, X + 4;"asterisk" 

PRINT AT Y, X + 43;"inverse asterisk" 

GOTO 379 

LET X = 19 + SGN(RND - .5)* INT(RND*(Z/3 AND 
Z<>42) + 1) 

IF X <1 0R X > 2@ THEN GOTO 1999 
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4928 LET Y = 18 + SGN(RND - .5).*INT(RNO*(2Z/3 AND 
Z<¢>42) + 1) 

1938 IF y <1 0R Y > 2M THEN GOTO 1929 

1949 PRINT AT Y, X + 43 CHRZ A 

195% RETURN 


BIO-RHYTHMS 


The ‘science’ of bio-rhythms is based on the belief that each of us in the throes of 
three cycles which start at the moment of birth and continue until death. 


PHYSICAL: The 23-day physical cycle relates to endurance, aggressiveness and 
physical strength, 


EMOTIONAL: The 28-day emotional cycle governs emotions, optimism/ 
pessimism, frustration, temper and moodiness. 


MENTAL: The 33-day mental rhythm is related to logic, reasoning, ease of 
expression and common sense. 


This program takes your date of birth, then the date of the day which interests you, 
and works out the ‘worst point’ on each of the three cycles in relation to the day you 
have nominated. 


20 coro. 216 
ET 


40 IF B- 3>= =@ THEN LET T=2 
S@ IF T=2 THEN LET 5=68+1 


=@ 
1290 LET F=G-INT (G-D) #D 
136 IF Foe THEN LET T=2 
1490 IF T=2 THEN LET Heese 
15@ IF T=2 THEN GOTO 16 
F=0@ OR Ds2=F THEN PRINT 


F=@ OR Dva=F THEN RETURN 


168 LET H=Dv 

19@ PRINT "AFTER "|GH;," DAYS" 
200 RETURN 

210 LET Ys="THE Worst DAY Is "™ 
220 LET xX$=" CYC 

230 CLS 


INT “ENTER YEAR OF BIRTH 


uT A 

260 PRINT “NUMBER OF BIRTH MONT 
T B 

3280 PRINT “DAY OF BIRTH (AS 39) 


o7 


c 
31@ GOSUB 3@ 
See CET VE 
33@ PRINT “NOU. TQ FIND YOUR BT 
OTR Tan . » "FOR Aa SET BAY. ENTER 
34@ PRINT “DATE THAT INTERESTS 
3590 PRINT 
36@ PRINT “YEAR (RS 1960} 7" 
S7@ INPUT A 

LET Z=A 
s5e iF A<1960@ OR AD1999 THEN GC 


370 
390 PRINT “MONTH (CAS 1117" 
400 INPUT 5 


6 
41@ PRINT “DAY (AS 2437" 


446 LET G=E~-d 

458. PRINT “GIO-RHYTHM FOR "“;P;* 
ao Peer ee 

_452 IF 7-1900¢(1@ THEN PRINT "@" 


"aSS PRINT z-19@e0 
PRINT 


D=23 
49@ PRINT “PHYSICAL"; X$ 
S@@ PRINT YS 

S1@ GQOSUB 118 

S2@ PRINT 

S3Q@ LET O=25 

54@ PRINT ye TONAL Ss % 


D=33 
$90 PRINT “MENTAL: X& 
INT YS 
616 GOSUB 11¢ 
DEree PRINT “ENTER Y FOR ANOTHER 
640 aneur Us 
65e iF SUgety” THEN GOTO 338 


s 
$01@ FOR I=1 TO 96 
8015 PRINT “ | > a 


4@ NEXT I 
6050 RETURN 


38 


SWARM 


in this short ‘arcade’ game, you are piloting a ship in outer space, when suddenly you 
are caught up in an asteroid swarm. You must pilot your ship between the asteroids 
(which, in this case, look somewhat like asterisks). 


There is no scoring mechanism in the first version of this game, and the ZX81 will 
not know when you've hit an asteroid. As you'll see later, scoring and/or detection 
programming slow things down. 


The "2" key will move you to the left, the “‘M’” to the right. Once you've played it, 
and before you read the fisting of the second version, you might like to try to add a 
‘detection routine’. The program, as given, runs in 1K. 


1@ LET A=19 
20 LET B8=1S 
38 LET C=28 — 
4@ PRINT AT C,.RND#3@; “# 
eo Seam 
S 
7@ IF INKEYS="Z" THEN LET Bame— 


8@ IF INKEY ES" THEN LET Roms 


98 PRINT ST A.B; “Set” 
1@@ GOTO 48 


The whole secret of this program lies in the use of SCROLL. Your ship (printed in 
tine 99, and ‘unprinted’ in line 50) stands still in the middle of the screen, while the 
stars rush on by. 


If you don’t want to add a detection routine, you might like to add a little bit which 
will stop your ship going off the sides of the screen (and possibly generating a “B” 
error). You'll need two lines and they should be between the present lines 8 and 99. 
If you‘re not sure how to do this, have a look at lines 249 to 270 in GEIGER. 


STAR-BURST 


SWARM 11, which we've called STAR-BURST, still fits within 1K, although it 
includes (a) a routine to detect when you hit something; (b) a routine to stop the 
ship going off the side of the screen; and (c) a scoring mechanism. 


The key “‘M” is your only control. Leave your finger off this and the ship drifts left. 
Pressing ‘“‘M’’ moves it to the right. The program stops if you hit a ‘star’ and the star 
turns into your score. Anything over 309 is good. Let us know your top score (no 
cheating, please) and we'll mention the grand champs in the next edition of this book. 


4@ LET FePI-Pot 
2@ LET A=VAL “18” 
30 LET B=VAL "AS" 
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40 LET C=A+A 

5@ PRINT AT ce RND #38, 2" 

6@ PRINT AT 2835" 

78 LET Fee eP EP 

6@ SCROLL 

90 IF B6>2 THEN LET 6=6-i 

100 IF INKEYS="M" AND B<¢26 THEN 
LET B=6+2 

110 PRINT AT A. ot vo 

228 PRINT AT 

IF PEEK (PEEK 16298s25RsPFF 

K 176399) «oo THEN GOTO 56 

140 PRINT F 


Your score is clocked up on the variable F. Line 99 stops the ship from falling off the 
left hand end of the world, and moves it step by step left if there is room. Line 190 
waits for your touch on the ‘’M’ key, and if you're not too close to the right hand 
edge of the screen, moves you right. 


The complicated-looking line 13@ looks up the PRINT position (set by the previous 
line) in the display file. 


If it does not find a character 23 there (i.e. a star), it sends the action back to tine 50 


for another round. If, however, you've hit a star, the program rolls on to fine 149 to 
give you your score. 


SWARM-STORM 


The final version is the above program, more or less, with inverse graphics. You'll 
notice, because of the need to constantly reprint a strip of black across the bottom 
of the screen, it runs more slowly than either of the two previous versions. 


S REM ¢NEEDS MORE THAN 1X 
FAST 
26 LET F-=8 


3Q@ FOR J=8@ TO 312 
4@ FOR H=@ TO 28 


12@ PRINT AT C.RND#35a; “E" 
213@ PRINT AT A,& “i 


S5@ SCROLL 
iso PRINT AT C.@: 


170 IF 6>4 THEN TET 6=6-1-iINT ¢ 
RND) 
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18@ IF _INKEY$="M" AND B<28 THEN 
LET B=6+34RN — 
i9@ PRINT AT A.B; “S 


PRINT AT 11,6; 
Bee OE PEER (PEER 16998+2564REE 


2198 
K 16590) <>181 THEN GOTO i128 
22O PRINT “#";Fs “#" 


RACER 


The same idea can produce a very effective game in which you have to drive your 
racing car fan inverse V} over a randomly twisting and turning track. Once you've 
run it, you're sure to think of many other effective ways to capitalise om the SCROLL 
function. Although the mechanism of RACER and the SWARM series is very similar, 
this 1K game looks very different from the SWARMs. 


After you first press NEWLINE, wait until the track ‘comes up" to meet your car, You 
have to keep your car within the solid black borders. When you're more experienced, 
reduce the width of the road {line 69). 


38 LET B= 

de ter gree 

S@ PRINT AT C,DB;" = 
70 PRINT AT 3.8: a , 


6@ SCROLL 
g@ IF INKEYs<"“N" THEN LEY Paks 


ree TF INKEY $="2" THEN LET B=k- 


11@ PRINT AT A.B; 
128 IF 0317 OR G17 THEN LET K=- 


13@ LET D=D+RNDeK 
148 GOTO 6@ 


As in SWARM, you control your vehicle by use of “Z" and “M", “Z" moving you 
left, and “M" moving you to the right. If you hit the side of the track, the black 
border at that point will disappear. 


Line 13 moves the track randomly from side to side, and line 12 makes it start 
moving back towards the middle if it gets too near either edge of the screen. 


Line 72 “unprints’ the car which is printed in fine 11@. There is no reason why your 
ear should be an inverse V, so change it to the initial of your first name, or whatever 
you like. ff you “unprint” with a graphic H, instead of a graphic A, you'll see the 
car leaves a trail behind on the track to show where you have driven. 


The car starts off at 18, 19 (A, B) and INKEYS {lines 99 and 19) alter the value of 
B {your position to the right or left of the screen}. As in SWARM, your up and down 
Position (A) does not change, but the SCROLL {line 80) sends the scenery dashing 
Past you. 
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~ 
ye 
at 


=e 


teh est 


RACER 2 


RACER-TWO puts you back on the road with a handicap. !f you hit the sides, the 
whole thing stops. This version fits within 1K. 


LET 

5@ PRINT AT C,B;" ne 

=) PRINT AT ALB: Se 

8@ TF INKEYS="Z" THEN LET B=R- 


9@ IF INKEYS$="M°" THEN LEY Rams 


20@ PRINT AT_A.B; "BB" 

41@ IF B<17 THEN LET D=D4238ND 

115 IF G27 THEN LET 6=f-23RNh 

128 PR AT 11.86; 

13@ IF PEEK (PEEK 16Q98.PFEK 3H 
3992256} 2128 THEN STOP 

2148 GOTO 59 
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. . RACER-THREE features a new hazard — other cars on 
the road, travelling in the opposite direction. . 


S LET F=PrI 
16 LET B=18 
2@ LET A=B 


40 LET D=B-B-8 ; 
SQ PRINT AT C.D; Spar A 
Bee 
“"6@ IF RND<.6 THEN GOTO 1908 
78 PRINT AT C,D+D/D+F#RND; “Ei” 
@@ SCROLL 
i?0 LET Ss8- (INKEY$s"Z"} + fINKEY 


1 PRINT AT A.B 
i328 Te Rete Then CET p=poprsAN 
D 


4150 TIF O>F THEN LET O=D-PITsRND 

255 PRINT AT A4PI-PI, 8 

16@ LET L=PEEK (PEEK iI8398+PEER 
399 #256) 

isa IF L=128 OR L=173 THEN STOP 


188 GOTO 5e 


GRAFFITI 


This program takes letters as you touch them on the keyboard, and prints them in 
greatly enlarged form, sewen letters across the screen, five letters down, You just 
touch the key and it appears. Press NEWLINE te get a space, and after pressing 
NEWLINE hold down the letter you wish to appear next, 


iW LET X = 4 

2g LET Y = 1 

a0 IF INKEYZ = "" THEN GOTO 3g 

og LET L = CODE INKEYS 

45 IF & = 118 THEN LETL = gf 

5@ FOR Z = @ TO 3 

of LET F = ee + B*L + 7Aag 

a | LET G = PEEK(2*Z + B*L + 7681 

ag LET H = 512 

og FOR 2 = To 3 

1d LET H = H/4 

119 LET A = INT(2*F/H - INTC FAH) *2 

129 LET B = INT(F/H = INT(F/2/H) #2 

134 LET C = INT(2*G/H - INT(G/H}*2 

149 LET D = INT(G/H - INT(G/2/H}*2 

159 PRINT AT X + Z, ¥ + J;CHRZ ags(2*4 + 8 
~ 135*C + 4*0) 

167. NEXT J 

170 NEXT 2 

18g LET Y= ¥ + 4 

199 IF ¥ € 29 THEN GOTO 3¢ 

2u¢@ LET X= X+4 

218 LET Y = @ 

220 GOTO ag 
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You can bring this program to a halt with the BREAK key. 


NEW ROM; You can get this program to work on the new ROM (and in the FAST 
mode on a ZX81) by adding the following: 


3g PAUSE 32768 (This takes the place of the lina 
30 above) 
35 POKE 16437, 255 


z 
0 


MICRO-MOUSE' «@ 


This program is fascinating to watch, and makes a good demonstration of the ZX81. 
A ‘mouse’ (an inverse asterisk) starts off in a random position somewhere near the 
top left hand corner of the screen. It is aiming for the bottom right hand corner. There 
is a solid black ‘frame’ on the screen, and a number of obstacles are placed randomly 
within the frame. When the mouse finally makes it to the end, the number of moves 
it took is shown, 


The obstacles change position, the mouse flashes off and on a few times, and then 
begins again. 


The mouse cannot get itself into a trap it cannot get out of, unless it happens to land 
in one at the very beginning, so have patience, no matter how long it seems to be 
taking. 


2 REM MICROMOUSE 16K 
S CET G=i6398 
6 LET H=G+1 

10 PRINT ar Q@.a 


20 
3S PRINT AT 24RND#418.2+4RND¥2 
36 PRINT AT 2+4+RND#16.1+RND#27 5 
37 PRINT AT 24RND#168.12+RND#27. 


42 PRINT AT A,@; “Ei 
43 PRINT AT S+RND #15, 2+RND #22; 


sj | 
44 PRINT AT 2+RND#£16,14+RND#¥27; 


45 PRINT AT 2+4+RND#418.2+RND424; 


oe 
oe 


ee 
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46 PRINT AT S+RND#15.2+RND#27; 


SO PRINT AT A.3i: “R" 


“A? PRINT AT S+4RND 415, 2+RND#24; 


S?7 PRINT AT 2+RND*#156.2+4+RND#26., 


6@ NEXT A 

61 FOR z=1 TO 18 

62 PRINT AT 20,38;** 
63 PRINT AT 20-30: [R- 
64 PRINT AT 20.230; "5B" 
65 PRINT AT 20,30;" " 
66 PRINT AT 29.350; -8 
67 PRINT AT 29,30;" " 
68 NEXT Z 

7O LET A=INT (RNO*6+4+1) 
75 LET @=98 

6@ LET B=INT (RND#15+t1) 
8S PRINT AT 290,386; 

9@ LET E=A 

95 LET @=04+1 

109Q@ LET F=8 


4@1 IF A=2@ AND B=30 THEN GOTa 


2e@e0a 
1085 LET T=@ 


106 IF RND>.2476 THEN GOTO 126 


11@ LET Y=INT (RND#7) 421 


112 IF Y=6 THEN GoTQa i169 

413 IF Y=3 THEN GOTO 2an 

114 IF Y=4 THEN GOTO 258 

115 IF Y=5 THEN GOTO 296 

116 IF Y=s=2 THEN GOTD aha 

117 IF Y=? THEN GOTO 330 

12@ PRINT AT A+1.,B; 

13@ IF PEEK (PEEK & +256 #PEEK 
=<@ THEN LET Te=1 

14@ IF T=1 THEN LET A=A#4 

iS@ IF YT=1 THEN GOTO i1@an 

152 IF RND>.2 THEN GQOTQ 169 

154 IF A=8 OR B=30 THEN GOTO 


1SS PRINT AT A-1,B+4,; 
156 IF PEEK (PEEK G+256x*PEEK 


165 IF RND<.2 TREN. GOTQ 118 
169 PRINT AT A.B 

170 IF PEEK (PEEK +8 256 sPEEK 
=O THEN LET T=1 

16@ IF T=1 THEM LEY B=6+8 
1990 IF T=1 THEN GOTO 1068 
195 IF RND<.6& THEN GOTO 299 
206 PRINT AT A+1.B+i: 
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2190 IF PEEK (PEEK Gt2S6sPEEK 43 
LET T=1 


220 IF T=1 THEN LET As=AtL 
230 IF T=1 THEN LET B8=68+1 
eee IF Lt THEN GOTO 10008 
IF RND«.1 THEN GOTD 3443p 
550 PRINT AY A-1,6; 
2690 IF PEEK (PEEK G+256 PEEK 3 
=@ THEN LET T=1 
276 IF T=1 AND A>@ THEN LET .AsA 


280 IF T= Tar An Sore 1990 
309 IF PEEK (PEEK 6 +256 PEEK Hi 
31@ IF T=1 ANDO B>@ THEN LET 8=B6 


320 IF T=1 THEN GOTO ig@e 
3390 IF 8=8 OR ASC THEN GOTO 110 
3460 PRINT AT A-1.,56-1; 
3590 IF PEEK (PEEK G+256 PEEK Br 
=@ THEN LET T=1 
S6Q@ IF Ti THEN LET fA=A-31 
S7@ IF T=1 THEN LET 6&=6-1 
380 IF T=1 THEN GOTO 100 


1600 PRINT AT E.F."_" 
1910 PRINT AT A.6; “E" 


98 
29008 PRINT AT_®@, 23° “He OR 


XT ON 
2ase PRINT. ar @,15; " 
20490 GOT 
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POGO 1,2 and 3 


In POGO (which runs quite happily in 1K and can be greatly elaborated if you have 
more memory) two characters of your choice trundle across the screen from right to 
left. You enter the characters as the first reaction to the program. Inverse characters 
look particularly effective. Perhaps you could input your own first initial for A$ and 
that of a friend for B&. Once you've RUN this a few times, and before you see how 
I've done it, try and rewrite the program using numeric and character arrays. 


Ww INPUT AZ 

2g INPUT 82 

3g LET A = 31 

4g LET B=A 

5 LET A = A = RND 

og PRINT AT 7,A3 AZ 

7 LET 6 = B + RNO 

8g PRINT AT 14,8383 

9g PRINT AT 7,A3"," {this is a full-stop) 
109 PRINT AT 14,8;",." and so is this) 


119 IF A> 1 AND B> 1 THEN GOTO S@ 


That’s what | call a short program. Before cheating, and reading the next listing, 
rewrite POGO, using arrays, to give the same display. Once you've done this, return 
to the book, and compare your version with mine. 


It is not very difficult to do this. Here is the way | changed the program to use 
arrays. It does not matter at all whether you did the same thing or not, so long as the 
screen display using arrays is the same as it was without arrays. 


1g DIM AZ(2) 

20 DIM A(2) 

38 FOR 8 = 1 TO 2 

4g INPUT A%(B) 

58 LET a(8) = 31 

6g NEXT 8 

76 FOR B = 1 TO 2 

8g PRINT AT 8*7,A(8)3"." 
9G LET A(B) = ACB) - RND 


199 PRINT AT 8*7,A(8)3A3(B) 
119 NEXT 8 
129 IF A(1) > 1 AND A(2) > 1 THEN GOTO 79 


This gives a display which is virtually identical to the first version. It has one great 
advantage — flexibility. If we wish to extend it so more than two objects POGO 
across the screen, we need to make very few changes. Altering the first version would 
be much more difficult. Enter the following program (or alter your own) to have four 
little POGO-ists. 


19 DIM AZ(4 
20 oIM ata) 
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38 FOR 8 = 1 TO 4 


40 INPUT AS(B) 

5é LET a(B) = 31 

69 NEXT 8B 

7e FOR B = 1704 

8g PRINT AT 8*4,A(B8)3;"." 
99 LET A(B) = A(B) = RND 


100 PRINT AT B*4,A(8) 5A%(B) 

119 NEXT B 

120 IF A(4) > 1 AND A(2) > 1 AND A(3) > 1 
AND A(4) 7 1 THEN GOTO 7@ 


For our final version, change the fours in the above program to eights (except the 
PRINT ATs, which should be changed to PRINT AT 2*8,A(B);), and change line 
129 to a simple GOTO 70. 


RUN this, and you'll see a ripple pass down the POGO-ists as they move along. But, 
there is something new. When they reach the left hand side of the screen, instead of 
stopping as they have done with the previous versions, they'll start racing back along 
the lines of full-stops, 


The program will stop when one of the characters -- ‘the winner’ -- actually leaps off 
the screen. 


WORD-PROCESSOR (USING 
THE PRINTER) 


This program allows you to couple your ZX printer with your ZX81 and to use it, 
more or less, as a word-processor. It automatically justifies the right hand margin 
when a line is over-filled, allows you to start a new paragraph at will, alter text or 
signal the end of text. If the screen is full, the program automatically turns on the 
printer and once the full screen has been printed, clears the screen waiting for your 
next piece of text. 


If you do not yet have a printer, you will still enjoy running this program (watching 
it justify is very interesting) and a couple of lines can be added to demonstrate that 
the printer is working (or would be if you had one). 


59 IF 6¢="." THEN GOTO 275 
6@ IF Be=""" THEN GOTO 338 
76 IF Be="8" THEN GOTG 36a 
75 IF 8€="S" THEN STOP 

8a LET C#=Ce+884" * 
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98 IF LEN C&i(32 THEN GOTO 2h 
91 FOR Y=32 TO 1 STEP -1 
92 IF ce €I} <>" “ THEN NEXT FT 
40@ LET AG=t(CH$t TG I-134+" 


3 
2110 LET Cesare trtt FO } 
12@ LET X=@e 
Oo 32 
148 tet {Ii <>" “ THEN GOTO 17h 


xT FT 
18@ IF AS(3EB)}<«>" “ THEN GOTO 2a 


285 PRINT AT _L.@: AS 
19@ LET A=INT TRND EX + 
195 IF 5({A) >32 THEN éato 19@ 
200 FOR T=S32 TO StAl+1 STEP -1 
2106 LET A(T) =AS(I-1} 

NEXT I 


TO x* 
240 LET St} =S tl} +1 


275 Cea" a 
28@ LET =L+2 
a3e if IF us ret THEN GOTO 330 


LET =bh+2 
318 IF tad THEN GOTO 328 
33 8 8=6coPyY 


If you do not yet have a ZX printer, delete 330 and add the next two lines. If you do 
have a printer, leave 339 as it was (i.e. COPY) and ignore 331. 


NON-PRINTER DEMONSTRATION LINES 


330 PRINT AT @.@;" 
SS1l INPUT T¢ 


Back to the ‘real’ program: 


348 CLS 

350 GOTO 1@ 

360 LET X=e 

37@ LET Y=8 

388 GOSUB 19300 

4080 IF INKEY$="" THEN GOTO 428 
418 LET aniieee INKEY & 

415 IF =118 THEN LET A=a@ 

420 IF Acad OR Alla? THEN GOTO 


425 GOSUB 10080 


cy 


470 IF A-121 THEN GOSUB i19e8a 
$30 IF A=121 THEN GOTO <a 
498 GOTO 39a 

S60 PRINT AT Y.X; CHRS A 

$108 LET X=X+i 

S20 IF X <32 THEN GOTO S5e 


S50 GOSUB 1686 

56e@ GOTO 392 

19@@ PRINT AT Y.X; 

148218 LET V=PEEK (PEEK 16596+256% 
PEEK 16399) +128 

1930 IF W>255 THEN LET W=-256 
104@ PRINT CHRS UW 

185@ RETURN 


With this program you enter your text, and the spacing is adjusted so that each line 
takes up 32 characters. If the screen fills up the text is automatically COPYed via 
the printer and the screen cleared so you can continue with more text. 


Special inputs are: 


aue 


means end of paragraph 
“/" means end of text 
“Q' means alter text on screen. 


NEWLINE equals a space, and after altering text, shift N/L allows you to add more 
text. 


When you need to alter text, after entering the @, you will see the first letter of your 
text inverted. Using keys 5, 6, 7 and 8 (and just by holding it down) the inverse blob 
will move in the direction of the arrows on the keys. When you come to the letter 
you wish to change, just input the desired letter. 


ECHO CHAMBER 


You'll never win this one. The ZX81 generates a constantly growing number (up to 
3@ digits long), digit by digit, and you must repeat it, after only seeing it for a very 
short time. 


Note that this program makes use (in subroutine 19@) to 192) of the function STRS 
which changes a numerical variable into a string. The subroutine also shows 
concatenation (the adding of strings} in action. 


5 FAST 

1g LET ag =" 

2a LETA =@ 

38 PRINT AT 18, @;"OK, HERE IS TEST NUMBER * "3A + 4 
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49 PAUSE 16% 

sf CLS 

og cosusp 148 

7 PRINT AT 1M, @;"YOU HAVE TO REMEMBER” 

BY PRINT AT 11, 31 = A3AB 

98 PAUSE 38 + S¥*A 

1g CLS 

119 PRINT AT 19, B3"OK, WHAT WAS THE NUMBER?" 

12¢ INPUT 8% 

725 CLS 

430 IF 88 = AZ THEN PRINT AT 19, B@3"YOURE RIGHT, 
STAND py" 

148 IF BZ = AS AND A = 31 THEN GOTO 219 

145 IF 84 €> ag THEN GOTO 18¢ 

156 PAUSE 149 

166 CLS 


189 PRINT AT 19, 23" SORRY, YOU ARE WRONG" 

198 PRINT AT 11, B;"MY NUMBER WAS * "ZAZ 

248 PRINT aT 12, G@;"YOUR NUMBER WAS * “38% 

218 PRINT AT 13, Bz"YOU SCORED * "3 3%A 

228 PRINT AT 15, @3;"00 YOU WANT TO PLAY AGAIN?” 


248 CLS 

258 IF cove(c¥s) = cove("y") THEN RUN 
268 FOR J = 1 TO 22 

279 PRINT AT 3, 8;"OK, BYE BYE" 

268 = =PAUSE 7 

296 NEXT O 

386 CLS 

318 stop 


1008 LET AB = AX + STRECINT(RND*9)) 
11g LET ASA 41 
1824 RETURN 


Note the use of CODE in line 25@ to check the player's answer. This allows the 
player te input YEAH, YESSIR or even YAY BABY and the ZX81 will still interpret 
it as . 


MIRROR, MIRROR 


MIRROR, MIRROR is similar to ECHO CHAMBER except that instead of a 
constantly growing number to recall, this 1K program gives you a series of five-digit 
numbers. 


The time you have to look at each number gets shorter as the game progresses, and 
the time you have to relax between each new number gets shorter and shorter. In 
BACK-STABBER, there are two routines (lines 20 to 50 and lines 239 to 269) which 
place flashing words on the screen between each round of the game. MIRROR, 
MIRROR uses a similar idea (lines 19% to 13@) for the ‘resting time’ between 
subsequent memory tests, and it is this routine which runs for a slightly shorter time 
each go. 
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You get a score (line 170) which is seven times the number of correct answers you 
gave. 


Have a look at line 160. This uses TAB within a line to PRINT the line on two lines, 
in a specified position. Your ZX81 manual explains this on page 115. 


12 LET Aa=8 

2@ LET B=INT (RND292@@0@) +1 aaa 
S3@ LET A=-FA+3 

49 PRINT AT 16.6; “TEST “: A.B 
S28 FOR NS TO 46-227F 


8@ IF B<>C THEN GaTo ise 
PRINT ATF 18,6;0;"° IS CORRES 


108 FOR Bb=1 TO 25-f 
22@ PRINT AT S,2, ee ES. 
1286 PRINT AT 5.9; "STAN = 


15@ GoTa ££ 
168 PRINT AT 18,5; °NO MINE HAS 
".B; TAB 7. “YOURS WAS "7C 
ize PRINT " YOUR MEMORY RATING 
"3 PE 


Here is a longer version of the game 


9 LET 8 = 49 

20 FOR A = 170 19 

38 SLOW 

4g PRINT AT 5,8;"TRIAL NUMBER * "3A 

Sa PRINT AT 8,6;"HERE 1S YOUR NUMBER" 

6g LET C = 19009 + INT (RND*9GGG9) 

7g PRINT AT 18,4;"THE NUMBER YOU HAVE TO" 
ag PRINT AT 12,73"REMEMBER IS * "3C 

99 | PRINT AT 14,12;"CONCENTRATE™ 


108 FOR E = 1 TO B - S*A 

119 NEXT E 

115 CLS 

129 PRINT AT 19,4;"0K, WHAT WAS THE NUMBER?" 
130 INPUT D 

149 CLS 

159 IF 0 €> C THEN GOTO 28¢ 
168 PRINT AT 19,8; "WELL DONE" 
170 FOR C = 170 B = 3*A 

189 PRINT AT 15,8;"STAND By" 
199 PRINT AT 15,8;"STAND By" 
200 NEXT C 

205 CLS 

219 NEXT A 
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229 PRINT AT 8,@;"YOU REMEMBERED ALL 19" 
237 PRINT “NUMBERS, SOQ YOU GET" 

240 PRINT "ANOTHER GAME" 

258 FOR E = 1 TO 198 

255 NEXT E 

269 cLs 

279 RUN 

268 PRINT AT 6,4;"SORRY, YOU ARE WRONG" 
29g PRINT AT 8,4;"MY NUMBER WAS * "3c _ 
399 PRINT AT 19,4;"YOUR NUMBER WAS * "30 
319 PRINT AT 12,4;"YOU GOT * "3a; * RIGHT" 


NICOMACHUS 


Nicomachus, so we are told, was a mathematician and author, who wrote a spell- 
binding book Arithmetica around the year 100. In it is the mathematical puzzle used 
in the program. You think of a number between one and 109, and divide it 
successively by 3, 5 and 7, entering the remainder after each division. Line 80 then 
reconstructs your number from this information. 


19 PRINT "THINK OF A NUMBER (1 TO 19%)" 
20 PRINT "/3" 

3¢ INPUT Z 

4g PRINT "/5" 

5 INPUT P 

6g PRINT "/7" 

a) INPUT Q 

ag LET ™ = 78*2 + 21*P + 15%*Q 

og FOR K = 1 70 6. 


108 IF mM > 195 THEN LET MSM ~ 195 
119 NEXT K 
120 PRINT ™ 
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RANDOM NUMBERS 


The random number generated by the RND function on your ZX81 is not truly 
random, although it is close enough for most purposes. The computer actually uses 
a long list of numbers, so long it appears random. The RAND function sets the start 
of the long list to a number related to the number of frames your TV has scanned 
since you turned it on. RAND n (where n is a number) sets the numbers to a position 
which is related to n. if you had RAND 7, for example, at the start of a program 
which used random numbers, it would generate exactly the same set of numbers 
every time you ran the programs. There are several algorithms which generate random 
numbers, and you might like to incorporate them into programs. They need to be 
‘seeded’ (and this is why they both ask ‘MINUTES PAST THE HOUR?" to get the 
seed), There is no reason why you cannot use the Z2X81's random number generator 
to seed these algorithms by deleting the question, and changing the INPUT line to 
LET A= RND in the first program, and LET X = RND in the second. 


1g SLOW 

26 PRINT "MINUTES PAST THE HOUR?" 
3g INPUT A 

af LET 8B = A/2 

iy” | FOR J = 1 TO 13 

6g LET B = ABS( 439147 + A + B) 

7g LET C = EXP 8 + 1 

eg LET D = 23%*8 

og LET 8 = INT(D - INT(O/C)*C) 
198 NEXT Q 


119 PRINT B 
1298 GoTo s¢ 


This program generates numbers by the congruence method, using the equation: 


23x, 


- = 8 
x +15 23x, - int, ) X (19° + 4) 


a 


The second program is more flexible, in that it can easily be set to genérate numbers 
in a desired range (the first program can be adjusted to do this, but it is more 
complex). This second program has been written here to simulate a single die, that is, 
it will generate numbers from one to six. Change the figure in brackets in line 78 to 
change the maximum number generated. 


18 PRINT "MINUTES PAST THE HOUR?™ 


28 INPUT X 

3g LET D = 6 

4g FOR J = 1700 

5¢ LET X = (X + PI) ##5 
6g LET X =X - ree’ 

76 LET D = INT( x*6 ) + 1 
8g NEXT 3 
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The next program draws a bar graph of the numbers generated by the RND function. 
RUN it a few times as listed, then add 19 RAND 6 to see the effect this has. 


20 FOR A= 110 2 

3¢ LET B = INT(RND*2g) + 1 

4g IF 8 € iff THEN PRINT " * "3 
of PRINT &;" * "; 

69 FoR C = 1 To 8 

79 PRINT “inverse > "; 

ag NEXT C 

og PRINT 

18M NEXT A 


if you'd like to slow the printing down a little, add: 


75 LET K -= RND*RND 


This is a useful technique to remember if you wish to slow a program down. A second 
way, which needs two lines, is to add a loop, such as the following: 


75 FOR N= 1 70 299 
77 NEXT N 


The RND function is used in many games to simulate the roll of a die. If it is working 
correctly, it should (like a proper die) produce each number between one and six an 
equal number of times. More realistically, the more you ‘roll’ the die, the closer the 
distribution of each number between one and six should be the same. 


This next program rolls a die as many times as you desire, and clocks up the totals 
for you as it runs. When you RUN the program, a number prompt will appear. This is 
the number of times you want the die to be rolled. 


As the program progresses, it will show you the result of the current throw (under 
the flashing black square) and the number of the throw. Below it you'll see a table 
being built up, which counts how many times each number appears. 


If you wish to try it for a large number such as 19, run it in FAST. New ROM 
machines will need the addition of 1@5 PAUSE 58. New ROM owners should delete 
line 50. 


The program is fairly slow, because of the quantity it prints each time through the 
loop. If you wish to test a very large.number, like 5009, remove line 39 and renumber 
it as 129. 


Delete lines 89 to 199 and make these 130 to 159. Delete lines 50 and 70 completely. 
Run it in FAST. 
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DICE ROLLS 


WW INPUT DO 

2g OIM A(6) 

38 PRINT AT 19,4;"1 # * * 2% *#*# GH HH GH HH 
5 * * * 6" 

4g FOR C = 7 To vo 

sv PRINT AT 3, 183;"inverse *" 

6g LET A = INT(RND*6) +1 

7G PRINT AT 3, 183A,C 

75 LET a(A) = Ala) +1 

68 FOR B = 1 TO 6 

og PRINT AT 12, 4*8/A(B) 

188 NEXT 8 

118 NEXT C 


The nigxt program, based off the one just listed, is somewhat more interesting. Whereas 
the chance of a single die falling with any face from one to six showing is, in theory, 
one in six, thé probability of certain totals being generated by adding the pips on 
two dice varies with the total being considered. That is, while there is only one way to 
get a total of 2 (1 plus 1),you can get a total of 4 by rolling 2 plus 2, 1 plus 3, or 3 
plus 1, There are six ways you can roll a 7. 


So, this program simulates the rolling of two dice. Once you've seen it in action a 
few times, and you understand what is happening, add a routine to give each total as a 
percentage of the number of throws. If all is well, your percentages should appraoch 
the theoretical distribution: 


TOTAL NO. OF WAYS PROBABILITY PERCENTAGE 
SHOWING IT CAN BE 
THROWN 
2 1 1/36 2.77% 
3 2 2/36, 1/18 5.55% 
4 3 3/36, 1/12 8.33% 
5 4 4/36, 1/9 17.11% 
6 5 5/36 13.88% 
7 6 6/36, 1/6 16.66% 
8 5 5/36 13.88% 
9 4 4/36, 1/9 11.11% 
19 3 3/36, 1/12 8.33% 
11 2 2/36, 1/18 5.55% 
12 1 1/36 2.77% 
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In the following program, line 199 ensures that an already very slow program dogs 
not become any slowef by printing again figures which do not need to be changed. 


W INPUT O (this is the number of timas you wish 
20 DIM A(12) to roll the two diog) 

3g FOR C = 170 8 

4g LET Al = NT tenoees + 1 

5¢ LET A2 # INT(RND*6) + 1 

69 PRINT AT 3,2;"inverse space 5 spacés ";A1, A2 

78 PRINT AT 3,23;C;" 5 spaces";A1, A2 

ag LET AS = AY + A2 

og LET ACA3) = ACA3}) + 1 


190 FOR 8 = 2 70 A3 

119 PRINT AT 8 + 3, 5, “graphic H" (note the comma, 
rather than a 
semi-colon) 

128 PRINT AT B + 3,538, A(8) 

4139 NEXT B 

144 NEXT C 


Now that we've spent a bit of time emulating dice with the random number generator, 
{ think we should use this in a few programs. 


CHUCK-A-LUCK 


The first one we'll fook at is called CHUCK-A-LUCK. In its first incarnation, in 
England, it had the most improbable name of Sweat-Cloth, and when exported to 
the United States in the early years of the 19th century, it became known first as 
Sweat. ft name changed through the years to Chucker-Luck, Chuck-Luck, Chuck-a- 
Luck or just plain Chuck. Nowadays, because of the equipment used in the non-ZX81 
version, the game is often called The Bird Cage. 


The bird cage is an enclosed wire cage holding three dice. Players bet on the likelihood 
of a particular number coming up. If, for example, they place their money on six, 
and one of the three dice ends up with a six showing, they get their money back. If 
all three dice show six, then they get three times their money. A fairly simple game, 
but one which arouses passion among bird cage devotees, 


This program does most of the work for you. When it first asks SIZE OF BET? you 
enter the number of pounds and pence you wish to bet. At all times you know how 
much money you have left (you start with £30) and you can bet up to the total you 
have. You automatically lose this amount as the garne begins {so one die coming up 
with your number just returns your money, you need two or three to show a profit). 
Your next prompt will be NUMBER? and here the computer just wants you to enter 
a number between one and six. The game explains itself as the program progresses. 


1g LET M = 3¢ 


M is your starting stake, and M your running cash total 


2B GOSUB 28g 
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Subroutine 289 prints your money on the screen, and incorporates a delay loop (290 
and 30) which is accessed separately at one point (line 220). 


30 PRINT AT 6,8;"SIZE OF BET? * "; 
ag INPUT A 

sv IF A > M THEN GOTO 4@ 

69 PRINT “é";A 

0 LETM=M-A 

ag PRINT AT 18,8; "NUMBER? * "; 

og INPUT B 

108 PRINT B 

119 IF 8B < 10R 8 > 6 THEN GOTO Bg 


The next section roils the dice, changing your stake as it does so if you win. 


129 FOR C 
139 LET W 


1 T0 3 
a 


W is the win/loss flag and pay master 


149 GosuB 299 

159 LET D = INT(RND*6 + 1) 

169 PRINT AT 11 + 2*C, @3" OIE * “5CHRA(C + 156); 
" * FELL * "sCHRS (8 + T5E 

179 If D = 8 THEN LET WA 

18g IF 0 = B THEN PRINT ,"WIN Es 

199 LET MS=M+ WU 


The subroutine changes the total if you have won 


209 GOSuUB 28g 
219 NEXT C 


There is a short delay before the game continues 


228 GOSUS 299 
239 cLs 


If you have money, action moves back to line 20 


24g . IF mM? @ THEN GoTo 29 


If you are broke, woe... 


250 PRINT AT 18,3;"GAME GVER, YOU ARE BROKE" 
268 PRINT AT 18,3;"GAME OVER, YOU ARE BROKE" 
278 GOTO 25¢ 


This is the tally-changer and delay subroutine 


78 


288 PRINT AT 2, 12;"STAKE £"3mz; " * * ® 


299 FOR N = 1 TO 5S@ 
398 NEXT N 
31 RETURN 


SEVENTH HEAVEN 


In its youth as a dice game, this was known as UNDER AND OVER 7. It seems very 
attractive to gambiers, because it appears loaded in the player's favour. As you'll 
discover when you play it with ‘money’ which only exists in the ZX81’s variables 
store, the game is loaded against the player. If the random number generator worked 
perfectly, and you played this game for ever, your losses would outweigh your gains 
by 16 2/3%. Now you've been warned, we'll move into SEVENTH HEAVEN. 


Once again, we’ve used M to represent your money. 
26 LET M = BW 


And once again, we have a subroutine to print out your growing (?) total 
3g GOSsuB 328 


The next section asks you to place your bet on one of the three possibilities: the dice 
will land with a total under 7 (A); equal to 7 (B); or over 7 (C). You indicate your 
choice by entering either A, B or C. 


48 PRINT AT 4,3;"PLACE YOUR BET” 
s¢ PRINT AT 19,8;"(A) * UNDER 7 * * * (8) * 7 
* * * (C) * OVER 7" ~ 


The next line explains your winnings — money back (A or C) or 4 to 1 (B, written as 
5 for 1 to look as if you are getting more . . . sneaky) 


6a PRINT AT 11,5;"EVEN * * * 5 * FOR *¥ 4% * # 
EVEN" - 
70 INPUT AS 


If you wish to stop the game, enter "S" 


ag IF Ag = *S" THEN STOP 


Now, you enter the amount of your bet 


og PRINT AT 16,193 "AMOUNT?" 

We INPUT A 

118 IF A< 1 OGRA > 6 THEN GOTO 199 
120 PRINT AT 16,103" * * OK * E"5A 
138 LET 8 = INT(RND*6) + 1 

148 PRINT AT 13,3;8;TAB 13 
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159 LET C = INT(RND*6) + 4 
T 


169 PRINT C3 TAB 63 
178 LET D = +86 
189 PRINT O 


This section of the program works out how well, or otherwise, you have done 


199 IF D0 = 7 AND AS = "6" THEN LET Ww = 4%A 

208 IF 0D “7 AND AZ = "A" THEN LET U = A 

218 IF D> 7 AND AZ = "C" THEN LET WU = A 

228 IF ((ag = "A" OR AS = "C") AND D = 7) OR 
AS = "B" AND D<? 7) THEN LET WU = <A 

238 LETM=M+u 

240 IF Wo oD @ THEN PRINT AT 16,4;"YOU WIN £"su 

258 IF Ww < @ THEN PRINT AT 16,4;"yYOU LOSE €"; ~ Ww 

268 GOSUB 32% 

278 FOR N= 1 TO 68 

28@ NEXT N 

298 If ™ <1 THEN STOP 

308 CLS 

318 GoTo 3¢ 

329 PRINT AT 2,123;"STAKE é"sm3;"% *% * * 

330 RETURN “= 


DICE-JACK 


DICE-JACK is a 1K dice version of Blackjack. You take it in turns to roll a single 
die, adding the score, and trying to get a total as close as possible to (or equal to) 21, 
but not more than 21. If either you or the computer wins, you get another game. If 
you both ‘bust’ (that is exceed 21) or you dead-heat, the program terminates. 


The PRINT statements are very short, to get the program into 1K, so I'll explain 
what you'll be seeing on the screen. 


When you first press RUN, you'll see the prompt appear in the bottom left hand 
corner, waiting for a number input. If you enter ‘'1’’, the die will be roiled, and its 
total added to your score. When you're happy with your score, and you want to 
“stand”, that is, stay on that score, you enter a 2 and the computer starts to roll. 
Your total is the top number, the computer’s total is the lower number. 


Lines 269 to 28) are just a loop to slow the game down. It is the human’s total 
in each game, and C (naturally enough) is the computer’s. Line 90 is the most 
important one in the game. This is the tine which holds ali the computer's strategy 
and therefore is the line which allows the ZX81 to decide whether to stand or roll 


again. 


Lines 179 to 199 work out who has won the game. 
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if you have more than 1K, you should dress up the program to include instructions, 
and proper player prompts. 


iW LET H = @ 

26 LET C=9@ 

3g INPUT A 

4g IF A = 2 THEN GOTO 9¢ 

5g LET H = H + INT(RND*6) + 1 

6g GOSUB 269 

W@ PRINT AT 4,83H 

Bg GOTO 39 

og IF C> HAND C € 22 ORC > 21 ORH PD 24 GRH = 21 
AND C = 21 THEN GOTO 149 

10g LET C = C + INT(RND*6) + 1 

119 GOSUB 269 

129 PRINT AT 8,83;C 

130 GoTo 9g 

14g PRINT AT 11,83 

159 GOSUB 269 

169 GOSuUB 268 

179 IF H = C OR HD 21 AND C Y 21 THEN GOTO 249 

18g If fc > HOR 4221} AND C € 22 THEN PRINT "1"; 

198 IF (H > C OR CY 21) AND H< 22 THEN PRINT "You", 

209 PRINT * * WIN" ~~ 

218 PAUSE 249 

226 CLS 

238 RUN 

248 PRINT "DEAD HEAT" 

250 STOP a 

260 FOR E = 1 TO 4g 

278 NEXT E 

289 RETURN 


Notice that the delay subroutine is called twice in a row (lines 159 and 16). This is 
just to give a double delay to give the impression that the ZX81 is working out who 
has won, 


Also worth noting is line 14@ which saves using the same PRINT AT twice. If it was 
not used in line 149, it would have to appear in both lines 189 and 199. 


As well as adding instructions and user prompts if you have more than 1K, you 
could consider actually printing out the result of each roll of the die, as well as the 
growing total. 
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BARBUDI 


This is a simple card game, based on the dice game BARBUDI. The player draws two 
cards from a pack containing only the nines, tens, jacks, queens, kings and aces. 
Certain combinations (which you'll learn by watching the program run) are ‘wins’, 
and other combinations are ‘tosses’. 


The amount you can win or lose with each hand of two cards increases as the game 
progresses. The money you win comes from the ZX81's stake (variable C, assigned in 
line 30), and the money you lose (your money is variable H, line 49) goes into the 
2ZX81's stake. The game continues until either of your stakes falls below £1. 


Note that the string A$ (assigned in line 28) is not dimensioned, but single elements 
can still be extracted from the string, and used. 


4 RAND 

2 LET AZ = "9TIQKA" 

3 LET C = 

4g LET H = 39 

Sv LET A =@ 

69 LET A= A+ 1 

| PRINT 

CT" | PRINT "PRESS N/L FOR HAND * "3A 
og LET G=@ - 


As you'll see in the subroutine starting at 259, G is the win/loss fiag. 


199 INPUT 828 
19 If BS > "" THEN STOP 


Line 11 allows you to abort the program at any time by entering any character 
before pressing NEWLINE. 


129 CLS 

149 GOSUB 259 

159 IF G = 1 THEN PRINT “YOU WIN" 
169 If G = 2 THEN PRINT "J WIN" 


The next section hands out (or takes away) the money 


178 IF G = 1 THEN LET H = H + A/2 

. 189 If G = 1 THEN LET C=C - A/2 
199 IF G = 2 THEN LET H = H = A/2 
209 IF G = 2 THEN LET C = C + A/2 
218 If C<10RH < 1 THEN STOP 
228 PRINT 
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230 PRINT "YOU E";H, "ME £%3C 
249 GOTO 6% 


This subroutine ‘deals’ the cards, by generating random numbers, and then extracting 
that number element from the string defined in line 20. 


259 LET 0D = NT tRNoeeS +14 

269 LET E = INT(RND*6) + 1 

279 PRINT AT 3, 193" graphicE two graphic? graphickR* 

288 PRINT AT 4, 1983" graphicS";AZ4(D) 3" * "saZle); 
"“graphic8" 

29g oees@xactly the same as 289.... 

308 PRINT AT 6, 1%3"graphicW two graphic6 graphicg" 

31g PRINT AT 6, 143 

32g LET FSFO+E 

33g IF F = S ORF >) 8 THEN LET G = 1 

349 If § < 4 0R F = 7 THEN LET G = 2 

357 RETURN 


Lines 330 and 34@determine which hands will lose, and which will win. The program, 
as written, is slightly biased in favour of the player. Once you've figured out the 
winning and losing pairs of cards, you might like to change these two lines to either 
bias the game in favour of the poor little ZX81, or to make it 100% fair. 


BLACKJACK 


This BLACKJACK program uses the same string idea as BARBUDI, with an 
undefined string (A$, line 60) holding the cards, and a defined string (C$, lines 19 to 
5@) determining the suites. CS must be defined because its elements are more than 
one character long. 


The program as listed here acts as dealer. It first deals a card to itself, then deals you 
your first card. From then on, you can decide to accept further cards or ‘stand’, that 
is, stick to the total you have. The aim of the game is to get a total of 21 (which is 
called a blackjack) or as close as possible to 21, without exceeding 21. If your total is 
more than 21, you ‘bust’. Non-picture cards count as their number (i.e. a two of 
hearts counts two), picture cards (jack, queen, king) count as 10, and the ace counts 
as 11, unless — by adding it to your total ~ you would bust. In this case, it counts as 
one. 


The suites make no difference, and the programm automatically works out the total 
for both of you, changing an ace from 11 to one where necessary. 


Once you are familiar with the program, you will probably like to add a mechanism 
for handling both your and the ZX81’s money, and allowing for bets. 
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LET 2 


DIM C#(4, 8) 


LET CZ (1) = "HEARTS * * * 
LET C¥ (2) = "DIAMONUS" 

LET CS (3) = “SPADES * * © 
LeT cs (4) = "rugs #*7* 


LET ABS = "23486785T OKA" 
GOTO 22¢ 


LET A = INT(RND*13) + 1 

LET E =A 

FOR N = 1 TO 35 

NEXT N 

LET Y = INT(RNU*4) +1 

LET R= 

PRINT my CARD IS * "sAs(A)3" * "3C8(Y) 
LETA=A+1 


IF A> 9 AND A © 14 THEN LET A = 19 

IF A = 14 THEN LET A = 11 

IF A = 11 AND Z + A> 21 THEN LET A = 1 

LET Z=Z2+A 

PRINT "MY TOTAL IS * "3Z 

RETURN 

LET H = @ 
=@ 

GoTo eg 


PRINT 

PRINT "PRESS N/L FOR YOUR FIRST CaRD" 
INPUT 2 

LET B = PNT (RNS) + 1 

LET Y = INT(RNO*4) + 4 

PRINT AT 4, 123 AS(B)3" * "3C3(y) 
LET 8 = 6B + 1 

If 8B > 9 AND B € 14 THEN LET 8 = 19 
IF @ = 14 THEN LET B = 11 

IF 8 = 11 AND H+8> 21 THEN LET 8 = 1 
LET H @H +B 

PRINT AT 5, B;"YOUR TOTAL IS * "3H 


PRINT AT 6,1;"ENTER "A" FOR A NEW CARD" 
PRINT AT 7,@;"OR PRESS NEWLINE TO STAND" 
INPUT 8% 

IF 88 = "a" THEN GOTO 289 

CLs 


IF H = 21 THEN PRINT , "BLACKJACK" 
PRINT " 

PRINT "OK, YOU STAND ON * "3H 

IF H> 21 THEN PRINT »"eusT® 

IF H > 21 THEN GOTO 66 

PRINT 


PRINT "MY FIRST CARD WAS * "ZAZ(E)3" * "sc8(R) 
PRINT “AND MY TOTAL WAS *# "57 

PRINT 

PRINT AT 6, O;3"I WILL NOW DEAL" 

GOSUB eg 
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530 If 2 > 24 THEN PRINT ,"BUST" 


549 IF Z = 21 THEN PRINT , "BLACKJACK" 

559 IF Z < 18 AND H < 22 THEN GOTO 52g 

S6d FOR N = 170 35 

S79 NEXT N 

50g CLS 

59g PRINT "YOU STOOD ON * "3H 

6g PRINT 

618 IF 2 < 22 THEN PRINT "I STAND ON * "32 

629 PRINT 

639 IF H = 21 THEN PRINT "YOU HAVE BLACKJACK" 

649 IF H = 21 AND 2 = 21 THEN PRINT "AND SO HAVE I" 

659 IF Z = 21 AND H ¢3? 21 THEN PRINT HAVE 
BLACKJACK" —— 

669 if (25 H ORH? 2%} AND 2 < 22 THEN PRINT ,"E WIN" 

679 IF (H > Z GR Z > 21) ANDO H < 22 THEN PRINT 
»"YOU_WIN" 

68g IF Hg 22 ANO H = Z THEN PRINT ,"STAND OFF" 

699 IF H > 21 AND Z 4 21 THEN PRINT ,"WE BOTH BUST" 

78 FOR N= 170 Sf 

718 NEXT N 

726 cLS 

738 RUN 


STORING INFORMATION IN 
STRINGS 


In the BLASTERMIND programs, in BARBUDI and in BLACKJACK, we stored 
certain information, in the form of characters, within strings. The information was 
accessed by looking to the position of the character within the string. 


Many BASICs have a READ/DATA facility, but a projected one for the new ROM 
ZX80 and ZX81 was dropped to make room for the firmware to run the printer, so 
we have to create a substitute. REM statements are quite useful, but strings can be 
used as well, and turn out to be much more flexible. 


In this next little routine, the elements of strings M$ and N§ contains information 
relating to position. { will not tell you what the routine prints on the screen — and | 
defy you to guess. Enter it now, and RUN it. 


W LET MZ = " six graphicS 777777" + CHRS 11 + "£33" 

20 LET N% = " graphics of the following 1274511274 
$1T5472" 

30 FOR A = 1 10 16 

4g PRINT AT CODE MZ(A), CODE NZ(A);"inverse space" 

So NEXT A 


Note that there are no spaces in elther of the two strings. RUN this and then change 
line 49 to read: 


4g PLOT CODE MZ(A),CODE N¥(A) 
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You get something different don’t you? And I’m not going to tell you what you get 
in either case, you'll have to enter the programs for yourself. 


This works because the !oop from line 3Q goes through each string, element by 
element, changing it into a number (the code of the character) which it then uses for 
information to PRINT AT or to PLOT. 


The strange thing in MS (+ CHR$ 11 +) is there because character 11 is the quote . 
mark, and you cannot enter that directly into a string. 


In our next program — BAKER'S DOZEN -—- strings are used to store the 
relationship between each position so the ZX81 can decide where to move (A$) and 
printing information to print out the board (BS and C§). 


BAKER’S DOZEN 


The ZX81 plays a strong, attacking game in BAKER'S DOZEN, and will probably 
beat you two to three games out of five until you learn its strategy. The game is based 
on NINE MENS MORRIS and NOUGHTS AND CROSSES. You have 12 pieces, 
which you place on a NINE MENS MORRIS board, alternating moves with the 
ZX81. The aim is to get three pieces in a row, along any of the lines shown in the 
diagram to the right. Note that the 

program has a provision for you, or the ee 

2X81, to go first. 


If you want the program to be shorter, | | t_ 
you can easily delete this option. The ahaa 
reference to graphics means shift of the 

named key, while in the graphics mode. 

There are no spaces in the strings. . 


1@ LET AS= "graphic 1 graphic 2 two graphic 7 graphic 4 two graphic 5 
graphic T two graphic E graphic A rraphic 1 graphic DP graphic S" 
+cHnd lltcurg 114"£24:77 left-bracket graphic D right~bracket 
><Cet+—un/< graphic 2 graphic S> graphic 4 £2 praphic T :- 
eraphic A (/" 

20 LET 8% = "three graphic? &£ + + + & three graphicT 
£>>> & three graphicD £7? ? 7? £” 


3d LET C¥ = “graphic4 £ = = = £ tuo graphic4 graphict 
£)) ) £ two graphicE graphicS £i::: & 
two graphics" 


4g¢ DIM L4(16,3) 
5g FOR 2 = 1 TO 16 
69 LET U(2Z) = AB(3*Z - 2 TO 3*2) 
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Ww NEXT 2 


ag PRINT "DO YOU WANT TO GO FIRST?" 

og INPUT As 

107 cLs 

119 FOR 2 = 170 24 

415 PRINT AT CODE 88(Z), CODE CB(Z)32 

129 NEXT 2 

130 DIM ™$(24) 

149 IF CODE AS = 62 THEN GOTO 199 

isd PRINT TAB 24; 

169 LET M = INT(RND#24 + 1) 

170 LET 9Z(M) = "graphic4" 

189 LET K = 189 

185 Gosue 1997 

199 INPUT M 

209 LET MZ(M) = “graphic 1" 

219 LET K = 169 

215 Gosua 1909 

220 DIM S8(16) — 

230 FOR Z = 1 TO 16 

24g LET S8(2)=CHRE(CODE Mf(CODB L8(Z,1))+copE mg(cope Lé(z,2)) 
+CODE MS(CODE 19(z,3))) 

258 IPF S§(Z)<> "graphic 7" THEN GO TO 31p 

289 PRINT AT 11, 11;"YOU"ZTAG 11;"three inverse 

space";TAB 11; "WIN" 

300 stop 

318 IF SZ(Z) = “graphica" THEN GOTO 739 

328 NEXT Z 

330 FOR 2 = 1 T0 16 

34g IF $8(2) = "graphic2" THEN GOTO 739 

350 NEXT Z 

369 FOR Z = 170 15 

379 FOR J = Z + 1 TO 16 

38g IF $Z(Z) = "graphic4" AND $8(3) = "graphic4" THEN 

GOSUB 639 

399 NEXT 3 

40 NEXT 2 

41g FOR Z = 1 70 15 
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426 FOR J = 2 +170 16 


43g IF 3£(Z) = "graphic1” AND $$(3) = "graphici" 
THEN GOSUB 83g 

44g NEXT J 

450 NEXT Z 

469 FOR Z = 1 TO 16 

470 FOR 3 = 1 TO 16 

48g IF $8(Z) = "graphic4" and $8(3) = "space" 
THEN GOTO 626 

490 NEXT J 

sad NEXT Z 

51g LET A= @ 

S28 LET ASA +14 

539 IF A = 24 THEN STOP 

549 LET M =m + 1 

559 IF A/8 = INT(A/8) THEN LET M =m +8 

56g IF M > 2S THEN LET M = M =~ 24 

579 IF M = 9 THEN LET M = 1 

589 IF ™ = 17 THEN LET mM = 9 

599 IF M = 25 THEN LET M = 17 

698 IF mS(M) <7 "space" THEN GOTO 529 

619 GOTO 179 

628 LET ag = 

630 FOR K = 1-70 3 

64g FOR L = 170 3 

659 IF Lf(2,K)*18(J,L) THAN LEV A¥eL£(z,K) 

669 NEXT L 

676 NEXT K 

6eg If Ag = "" THEN GOTO 499 

699 FOR K #170 3 

760 IF AZ = L3(3,K) THEN NEXT K 

719 LET M = CODE LZ(I,K) 

720 GoTO 179 

730 FOR K = 1 70 3 

749 IF MS( CODE L4(Z,K) <> “spacé" THEN NEXT K 

759 LET M = COVE LZ(Z,K) 

760 If 58(Z) €> "“graphica" THEN GOTO 17¢ 

770 LET K = 189 
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789 GosuB 1989 


agg PRINT aT 11,113"inverse space inverse I inverse space";TAB 11; 
"three inverse space";TAB 113 "WIN" 


82g sTop 

83g FOR K = 170 3 

B49 FOR L = 170 3 

85g IF t3(2,K) = L8(3,L) AND MZ(CODE L3(Z,K)) 
= "space" THEN GOTO 758 

86g NEXT L 

870 NEXT K 

seg RETURN 

1900 PRINT AT CODE BS(M),CODE C¥(M)sCHRZ Ks "space" 

1919 RETURN 


PEEK AND POKE 


PEEK and POKE seem more frightening than they are. The following is somewhat 
simplified and incomplete, but should tell you enough to start thinking about, and 
using, these two useful commands. 


Imagine that the thinking part of the ZX81 is a suitcase, filled with matchboxes. 
Every matchbox is numbered, so at any time we can look inside the matchbox 
(PEEK inside it) to see what is in there, or we can put something (POKE it) into the 
matchbox. 


In the complicated world of computers, the number which is written on the side of 
the matchbox is called its address. So, when you want to look inside a matchbox, 
you PEEK into its address. When you want to put something in a matchbox, you 
POKE it into the matchbox’s address. 


Now, because the ZX81 deals in numbers, the stuff inside each matchbox (that is, 
in or at each address) is a number. We POKE numbers in, and when we PEEK an 
address we get a number. 


Every part of a program has an address, and we can change bits of programs by 
POKEing things into the relevant address. 
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Try the following program. RUN it and then look at the REM statement in line 19. 


J REM AAA 

ya LET A = 16514 

3 LET B = 16515 

4g LET C = 16516 

5g INPUT DO (D must be greater than 2 and less than 60) 
6g POKE A, D 

78 POKE B, 0 - 1 

eg POKE C, D + 1 

9g LIST 


When you RUN this, you'll find the AAA in line 19 has been changed, because lines 
69 to 80 POKEd new information into the addresses (16514, 16515 and 16516). 


Address 16514 is the first address after the word REM in the first line of a program. 
There is one big advantage storing numbers in REM statements — they are not lost 
when RUN or CLEAR is used, whereas ordinary assigned variables (such as LET A = 
3) are lost when RUN or CLEAR is used. 


in the next program, in which you have to guess a number which the ZX81 has 
thought of, the 2X81's secret number is stored in address 16514, your guess is stored 
in 16515 and the number of guesses you've had is stored in 16516. 


Enter and RUN it a few times, and try and understand how it works. 


iW REM AAA 

20 POKE 16514, INT(RND*59) + 2 
38 POKE 16516, @ 

4g LET A = 16514 

5g LET B = 16515 

6g LET C = 16516 

a POKE C, PEEK(C) + 4 

6g PRINT "ENTER GUESS * ";PEEK(C) 
8 INPUT D 


190 POKE 8, O 

119 IF PreRtey = penta THEN GOTO 17¢ 

129 IF PEEK(8) < PEEK(A) THEN PRINT PEEK(B8);" 
* 1S TOO Low" 

139 IF PEEK(8) > PEEK(A) THEN PRINT PEEK(8);" 
* IS TOO HIGH" 

149 IF PEEK(C) < 11 THEN RUN 49 

150 PRINT "TIME IS up" 

168 GOTO 189 

176 PRINT "YOU WERE RIGHT IN *;PEEK(C);" GUESSES" 

188 PRINT "I WAS THINKING OF * ";pEEK(A) 
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DRAUGHTS 


This next section will enable you to develop a complete game of draughts. However, 
the main reason it has been included is so | can explain a method of numbering 
boards for board games which make it easy for a computer to manipulate. A similar 
board-numbering system can be used as the core of a chess program, noughts and 
crosses and even Nine Mens Morris. | strongly urge you to follow through the text 
carefully, entering the programs as listed. If you do this, you should learn quite a lot 
which will help you when you come to write your own board games. It is not in your 
best interests just to input the final draughts program without entering the preceding 
programs. 


THE NUMBERING SYSTEM 


The normal way to number a draughts board is to count off the white squares 
(actually, the black squares are counted, but white ones are used here because they 
are easier to use in the computer context) from one to 32. But this numbering 
method creates a problem when we try to define a move in terms of the difference 


between two diagonally adjacent squares. In one direction, the difference between 
the squares can be three or four and in the other direction, the difference can be five 
or four. There are also no ‘spare’ numbers to indicate where the edge of the board 
begins. Now a gentleman by the name of . 

A. L. Samuels wrote an article for Scientific 
American in the 1960s (see Strachey, 
Christopher, “Systems Analysis and 
Programming”, in Readings from Scientific 
American, W. H. Freeman and Co., San 
Francisco, 1971) in which he devised a clever 
numbering system in which the difference 
between diagonally adjacent squares is always 
four and five (or minus four and minus five). 
{t also allowed for numbers to be given to 

squares which were ‘off the board’. I’ve 
changed his numbering system a little to 29] : 

make it more convenient for the ZX81, and 
in my system, the difference between squares is always six or seven (or minus six and 
minus seven). My system, véry simply, sets up an array of 82, and allots certain 
elements of the array to squares on the board. All the others are understood by the 
computer to be off the board. 


In this program, the ZX81 allots the value 9 to any square off the board, zero to an 
empty square, 1 to a computer's ordinary piece (2 to a computer king) and —1 to the 
player’s ordinary piece (and —2 for a player's king). This may sound a little 
complicated, but bear with me, and it will (hopefully) all become clear. 
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Here is my numbered board. You can see that if you move from the top left hand 
corner (69) to the square diagonally betow it (63) the difference between the two 
squares is —6. Now, choose any other square on the board from which you can move 
down and to the left, and you'll see there is a difference of —6 between the square 
you started on, and the square on which you finished. This sort of predictable result 
is relatively easy for a computer to handle. Move in the other direction, that is 
downward and to the right, and you'll see the difference between the two squares is 
—7. In the first version of draughts, we'll actually be playing on the board printed 
above, so you'd better start looking for a number of small buttons to use as playing 
pieces. 


The program is in two parts. The first ‘sets up the board’ (the subroutine starting at 
9990) and the second (10 to 370) actually plays the game. Your pieces start at the 
bottom of the printed board (on the lower numbers) and the ZX81 starts at the top. 
You place your pieces and the ZX81‘s on the board and then press RUN. The ZX81 
assigns the values to the elements of the array in the FAST mode, then goes to 
SLOW to play the game. It still plays remarkably fast, even in SLOW, but if you'd 
like it to play even faster, leave out line 5 for the time being although you'll need 
SLOW later on, when we get the ZX81 to print out a board. 
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The ZX81‘'s moves are shown as two numbers. The first is the square it is moving 
from, and the second — naturally enough — is the square it is moving to. Move its 
piece on the board as instructed and then decide on your move. Make sure you move 
your piece BEFORE you input your move (which you do by entering the number of 
the square you’re moving from, then NEWLINE, then the square you're moving to) 
or you may forget what your move was. In the FAST mode, the ZX81 can sometimes 
make a decision so quickly you hardly have time to move your finger from NEWLINE 
before the ZX81 has made, and printed, its decision. 


In this program, the ZX81 will make kings automatically (its kings are made in tine 
49, your kings in line 19) and it will use its kings most effectively, despite the fact 
that its only ‘strategy’ for king use is line 65 (which keeps it moving its kings in the 
area bounded by squares 24 to 53). Note that there is no provision within the 
program for multiple jumps by either the player or the ZX81. The program has been 
deliberately left incomplete so you can work on it once you’ve understood the 
material presented in this section. A number of suggestions for improvement, 
including the provision of multiple jumps, is included at the end. 


Here is the first part of the program, the section which sets up the board. It creates 
an array (DIM A(82)) then fitls the array with numbers representing pieces on the 
board (1 and —1} empty squares (@), and squares off the board (9). 


| Gosus 990g 

5 SLOW 

960¢ FAST 

9910 DIM A(82) 

9620 DIM x2) 

9938 LET x(1) = - 6 (These are the values which 
of48 LET x(2) = - 7 relate diagonally adjacent 
9G5f FOR Z = 1710 82 squares, 


9g6g LET A(z) = 9 (‘off the boardt 
op7a IF 2€73 AND Z > 55 AND NOT (Z = 67 OR Z = 68 

OR Z = 6% OR Z = 61 OR Z = 62) THEN LET 

A(z) = 1 (the ZxX81's pieces) 

9feg IF 2 € 54 AND Z > 42 AND NOT (Z = 47 OR Z = 48 OR 

Z = 49) THEN LET A(Z) = @ (vacant squares) 
9¢9d IF Z < 41 AND Z >23 AND NOT (Z = 34 OR Z2 = 35 OR 

2 = 36 OR 2 = 28 OR Z = 29) THEN LET 

A(Z) = ~ 1 (your pieces) 
919d NEXT 2 
9119 LET AS 
9128 LET Bg 
9138 RETURN 


"mY MOVE * " 
"YOURS?" 


Check to see if this is working correctly before you proceed. Add 8999 STOP, then 
RUN the program. When it stops, get the ZX81 to print out the following, to make 
sure it has assigned values correctly. The right answer is given in brackets after the 
command: 


PRINT A(23) (9); PRINT A(38) (—1) ; 
PRINT A(54) (9); PRINT A(51) @) ; 
PRINT A(64) (1); PRINT A(73) 9). 


If this works satisfactorily, SAVE it a few times (just in case you lose the program a 
little later) and then input the following, which actually plays the game. 
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LET Q 
FOR Z 


a 
24 TO 72 


IF NOT (A(Z) = 1 OR A(Z) = 2) THEN GOTO 199 
IF ACZ) = 1 AND Z 5 23. AND Z€ 28 THEN LET A(Z) = 


FOR X = 1 70 


IF A(z + x¢0)) 60 AND A(Z + 2*%(X(X))) = @ THEN 


LET Q = x( 
IF Z > 55 THEN GOTO 6g 


IF A(z) = 2 AND A(Z - R(x)) < G AND A(z = 2*(x(x))) 


@ THEN LET Q = -x(Xx) 
IF NOT Q = @ THEN GOTO 129 
NEXT X 


IF a(2) =-~- 17 ANO 2 > 68 AND Z € 73 THEN LET 
A(z) = 


NEXT Z 

IF = § THEN GOTO 168 
LET A(Z + Q) = @ 

LET ACZ + 2*Q) = a(Z) 

LET a(Z) = @ 

PRINT AZ3Z, Z + 2*Q 

GOTO 328 


4 ‘ INT (RND*48) 

LET Y = 

Fy < 10a. AND ‘yor (A(Z) = 1 OR A(Z) = 2) 
THEN GOTO 17¢ 

FOR X = 170 2 

IF aA(Z + X(x)) = @ THEN LET Q 

If a(zZ) = 2 AND A(Z = X(X)) = 
Q = = x(x) 

IF NOT Q = @ THEN GOTO 299 

NEXT X 


= x(x) 
@ THEN LET 


IF Y < 19% THEN GOTO 179 
PRINT "You WIN" 


STOP se & 


LET Ne + Q) = A(Z) 
LET A(Z) = @ 

PRINT A¥;Z, Z + » 
PRINT ,83 

INPUT A 

INPUT 8 


A(A) 


r 
m 
“+ 
> 
-— 
> 
il 
Ce | 


GoTo 19 
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8) > 7 THEN LET ACA + (CINT((B - A) 


Play a complete game with the ZX81, using little buttons on the board provided, then 
return to this book and we'll go through the program line by line to explain how it 
works. 


Line 10 sets up Q as the indicator (or ‘flag’) to show a move has not been made. 
When a move decision has been made, Q changes to a value which is not zero. Line 26 
starts the loop which checks every square on the board to see if a capture can be 
made. Line 30 checks to see if the square being looked at (i.e. the element of the 
array) is a ZX81 standard piece (1) or a ZX81 king (2). If it is not, the computer does 
not waste time checking through the logic statements, and goes to 190. At 190 it 
checks to see if a player’s piece (—1) is on the ‘king line’ and if it is, changes the 
player's piece to a king (—2). 


tf the computer finds that the piece it is considering is one of its own it then checks 
(in line 49) to see if it should be made into a kirig (i.e. changed from 1 to 2). Next, 
it goes through the X loop, checking that the piece down and to the feft (—6) is less 
than @ (if it is, the square contains a player's piece) and that the square twice the 
distance away (i.e. —12) is an empty square. If these two conditions are true it sets 
the capture fiag (Q} to —6. Line 65 checks that if its piece is a king, it does not roam 
further afieid than square 55 {as discussed earlier when talking about king strategy). 


In line 7@ it makes a simiiar check to the one it did in line 60, except this time it 
checks to see if a king (2) can capture ‘backwards’. You'll notice by looking at the 
numbered board that the legal ZX81 king moves are +6 and +7, so this line checks to 
see if there is a player's piece on the square +6 and if the square beyond it (+12) is 
vacant. If it is, the capture flag is set to +6 (it is actually set to —X(X) which has the 
same effect). 


If, in line 80, the ZX81 finds Q still equal to zero, it knows it has not made a decision 
to capture. If, however, O is non-zero, control is sent to line 120 to act on the decision. 
Line 99 ooks through the X loop with the second value (—7) of X(X). Line 105 
continues to search through the Z loop, checking every square to make sure a potential 
capture is not missed. . 


if Q still equals zero when the ZX81 gets to line 119 it knows there is no potential 
capture on the board, so control is sent to line 16@ to find a random, legal move. If, 
however, Q is non-zero, lines 120, 130 and 149 make the capture, and line 150 
displays it. Having made its move, it sends control to line 32@ to accept the player's 
move. 


If a legal move has not been made, the computer looks for a random move. The flag 
Y (line 160) counts the number of attempts made to find a legal move (adding one to 
Y in line 188 each time it tries a move). If no move is found in 99 attempts (line 260) 
the ZX81 wisely concedes defeat. 
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Line 19® checks to see if the square it has generated contains one of its own pieces, 
and if it does not, and Y is less than 199, goes back to pick another square at random. 
Once it finds a piece of its own, it applies the ’X loop test’ (lines 209 to 249) tosee 
if it can move legally, again using the flag Q to indicate whether or not a move has been 
made. 


Lines 27@ and 289, as we've said, concede defeat. Lines 299 to 319 made the move 
and print it for the player. 


The player then makes a move (lines 325 and 33@) and the ZX81 acts on it (lines 
349 to 360) using the somewhat complicated line 369 to capture a ZX81 piece if the 
player's move is greater than seven. It knows that a move to an adjacent square must 
be either 6, 7, —6 or —7 and that a move greater than this can only come if the player 
is jumping over a ZX81 piece (or cheating). The ZX81 never assumes the player is 
cheating (because the computer cannot cheat) so uses line 369 to work out which 
square lies between the square the player moved from, and the square the player 
moved to, to ‘erase’ its own piece. 


Once you've understood the foregoing, you can start improving the program. I'l! give 
you a way of printing up a board (although you'll still have to refer to the 
numbered board to input your moves) but the other improvements are up to you. 
Once you’ve got the printing of the board under control, you might like to try and 
add the following, to change the program into a real draughts game: 


— Add multipie jumps (these are relatively easy, as each multiple jump is a 
predictable arithmetic change from the starting square, and the array is 
large enough to stop you jumping out of it in most cases when looking for 
potential multipie jumps). Player's multiple jumps are very easy. Just get 
the ZX81 to ask “IS THIS A MULTIPLE JUMP?” tf a capture (line 369) is 
made, and if the answer is ““YES’’, send control back to 325 to allow the 
second jump to be made. 


— Add a ‘capture tally’ so the computer will print up after each move how 
many each of you have taken, The ZX81 can then declare itself the winner 
if it, say, captures nine of your pieces. 


— Add a mechanism to accept moves directly, rather than by having to look 
it up on a table. 


There are probably other improvements you can make, but | feel these should be 
your first priority. 
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ADDING A DISPLAY 


The final ‘improvement’ | will give you to the program is a little routine (developed 
by Toni Baker) to print out the board. 


Delete line 320, change 310 and 159 to GOSUB 5040 and add 15 GOSUB 5909, Now 
add the following: 


sega 
5818 
5¢2¢ 
5938 
5949 
5958 


S@68 
5879 


5488 
5998 
5198 
5118 
5126 
5139 
5149 
5158 
5169 
5178 
5188 
519¢ 


5260 
5218 
5226 
5238 
5246 
5258 
5268 


FOR M = 24 TO 72 


IF A(M) = 1 THEN LET A(M) = 61 
IF any = - 1 THEN LET A(M) = 52 
IF ACM) = 2 THEN LET A(M) = 48 
IF ACM) = - 2 THEN LET A(M) = 13 
NEXT ™ 


PRINT AT 1, B3AB; Z, Z + Q 
PRINT AT 3, 1143 88 


PRINT "nine graphic A" 


FOR K = 6 TO 3 

FOR J = @ TO 3 

PRINT “inverse space";CHRS(A(72 = J = 13*K))3 
NEXT J 


PRINT "graphic A" 

FOR J = @ TO 3 . 

PRINT CHRSZ(A(66 - 3 - 13*K));"inverse space"; 
NEXT 3 

PRINT “graphic a" 

NEXT K 

PRINT "nine graphic A" 


FOR M = 24 TO 72 


IF aA(M) = 61 THEN LET A(M) = 1 
IF A(M) = 52 THEN LET A(M) = - 1 
IF aA(M) = 48 THEN LET aA(m) = 2 
IF a(M) = 73 THEN LET a(m) = - 2 
NEXT ™ 

RETURN 


With this in place, you'll actually see the piece move. Ignore the line "MY MOVE...” 
when it gives the same square number twice. Wait for it to change, and then watch 
the computer’s piece move. Captures look particularly good. Wait until the inverse L 
appears in the bottom left hand corner before you attempt to enter your move. 


Note that the two loops (5090 to 5059 and 52@@ to 5259) decide which character will 
represent which piece. By all means change these if you like. Note that, as in ‘real’ 
draughts, a king does not become a king till the move after the one in which it was 
moved to the king line. 
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LIFE 1AND2 


Before we move onto our final draughts program, I'd like to show you how a 
numbered grid, which has the same numerical relationship between adjoining squares 
all over the grid, can be used to produce the program LIFE. 


LIFE was invented by John Conway of Cambridge University in 1970. The game, 
which simulates the birth, growth and death of a cell colony, produces fascinating 
effects. 


Each cell in the colony is born, survives or dies according to Conway’s rules: 


* Each cell on the grid (which is drawn on the outside of a cylinder in our 


case} has eight neighbours. 
Every cell with two or three neighbours survives to the next generation. 
If there are three, and three only neighbouring cells, a new cell is born 


Any cell with four or more neighbours dies from overpopulation 


1 REM 16K BB@@a USING PLOT 
5 LET G=@ 
7? RAND 
3Q@8 DIN ATIO.1@1 
2a DIM 86(10,16) 
30 FOR X=2 TO @ 
4@ FOR Y=2 Ta a 
5Q@ IF RND>.5S5 THEN LET ACX,.YI= 


6@ LET Bt(X,YV¥) =ACX,YV) 

?@ NEXT ¥ 

60 NEXT xX 

98 GOSUB 188m 

95 LET G=G+1 

10@@ FOR X=2e TO 9 

11@ FOR Y=2 TO a 

120 LET C=@ 

150 IF A(*-21,.Y-1) =1 THEN LET C= 


14@ IF ACK-1,Y)=1 THEN LET t=£+ 
+450 IF ACK-1.¥4+13 =1 THEN LET C= 
16@ IF ACX.Y-1) =1 THEN LET C=C+ 
t 70 IF A(X,¥ +1) =1 THEN LEY ©=F:+ 
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180 IF ACX4#1.¥-1) =1 THEN LET Ce 
19@ IF ACX+1L.Y) =21 THEN LET C=C+ 
* 500 IF ACX41,Y41}3 =1 THEN LET C= 
210 IF AC(X.¥)=1 AND CicoS AND fer 


>2 THEN LET B(X,.Y) =08 
r «Y¥) sQ@ AND C=3 THEN LE 


fn 
fy 
g 
on a} 
“tt 
uD 


258 GO 3e 
+Qee PRINT AT 6.0; “BESS eae 
1@01 FOR X=1 TO 10 


1902 FOR Y=1 TO 19 
19004 IF AC(X,Y)I=1 THEN UNPLOT X.Y 


1006 IF ACX.Y)}=1 THEN PLOT W434, 
2010 IF ACX.Y) =@ THEN PLOT X,Y. 
1012 IF ACX,Y) =@ THEN LinPLOT ¥223 


1,Y+11 
19015 LET ACX,V) =BtIX,.Y) 


te } >, “ E 


it 


SLD Ds Nl), 


La 


I=] 


Atx,Y) THEN UNPLOT ¥,Y 
1925 IF A(X>Y)=1 THEN PLOT X11, 
103@ IF A(X,¥)=@ THEN PLOT x.¥ 
235 IF ACXKIY) =@ THEN UNPLOT’ X¥e4 
1@4@ NEXT Y 
4a50 NEXT x 
1960 RETURN 


99 


REM LIFE WITH PRINT 
LEY G=a@ ar 


YY RAND 
10 OIM A(10,10) 
28 DIM 8119.19) 
3@ FOR X=2 TO 9g 
496 FOR Y=2 TO 9 
5@ IF RNO>.45 THEN LET AIX.YI = 


6@ LET B8{X,V) =AUX,Y) 
7Q@ NEXT Y¥ 
SQ NEXT X 
98 GQSUB 1e00e 
LET G=G+i 
100 FOR X=2 TO 9 
11@ FOR Y=2 TO 92 
12@ LET C=@ 
13@ IF ACX-1,Y¥~-1) 21 THEN LET CH= 


4*? IF ACUX-41,Y) 21 THEN LET C=C+ 
15@ IF A(X-2,Y421} =2 THEN LET C= 
{re IF ACX,¥-1) =2 THEN LET C=C+ 
17@ IF ACX,¥Y 42) =% THEN LET C=C+ 
160 IF A(X421,Y—-1) =1 THEN LET C= 
412? IF AtCX42.Y) 22 THEN LET C=C+ 
2e@ IF A(X4+4,Y+1)=1 THEN LET C= 
210 IF ACX.Y)=1 AND Cc>S AND Cx¢< 
>2 THEN LET B(X,Y) =@ 

220 IF A(X,Y) =0 AND C=3 THEN LE 
T B(X.Y) =2 

230 
240 NEXT xX 
250 GOTO 93e 
12a0 PRINT AT 4, a3; Mw GENES S TION J 
1001 FOR X=1 TO 10a 
1002 FOR Y=1 TO 18 


1015 LET ACX.Y) =BIX,.V) 
1920 IF A(X,Y)=1 THEN PRINT AT X 


Yo ‘a 
iodo arr ACX,¥1=@ THEN PRINT AY X 
1040 NEXT Y 
19@5@ NEXT xX 
16606 RETURN 
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DRAUGHTS 


Time now to return to draughts, and this time it is a ‘proper’ draughts game, with an 
easy-to-use mechanism to enter a move, multiple jumps, a ‘capture tally’ and several 
other features 


This program is very effective in SLOW, especially in the early stages of the game. 
However, when there are less pieces on the board, and the ZX81 has to do more 
thinking before it decides on a move, it can be very slow. Therefore, you may prefer 
to run the whole program in FAST. Certainly in the early stages of testing your 
program you should stay in FAST, just to save time. 


S REM DRAUGHTS-16K 
FAST 


29 RAND 
39 GOSUB 3880 


7@ Stow 
19000 TF C$ ti) ="K" THEN GaTa A@1M 
os BRENT AT 16.5; “YOUR LAST MO 


1010 LET MOVE=3a 
1@15 PRINT AT 17.4; “THIS MOVET 


1@2@ INPUT B&Bs 
2098 PRINT AT 17,1314; " FRON "; BS: 


1046 INPUT CS 

1959 PRINT AT 17.25;" “: Cs, "BREW 
1960 LET Z(1) =CODE BS(1) £104CODE 
1970 LET Zt(2) =CODE C$I1)} #20+CORF 


19060 FOR U=1 Toa 2 
IF Z(tt)=41@ THEN LET B(thh =? 


i100 IF ZtU) =<412 THEN LET 8 (li => 
3110 IF Z(U) =414 THEN LET Bla =F 
gi2e IF Z{U) =416 THEN LET BIL = 
gise ZF ZU) =419 THEN LET BU) <6 
£240 IF ZtU) =4212 THEN LET Btlh) =-6 
zise IF Z2(U) =423 THEN LET BIL) <& 
4168 IF Z(U) +425 THEN LET Btu) =6 
give IF Z(U) =43@ THEN LET BIllh=5 
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ET u 
1460 IF ABS 


1465S FAST 
1470 GOSUB 7o9ea 
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72) =65 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


LET 
CET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


(Bi) 
B(2))>7 
)-B(2))>7 THEN L 


Bc) = 


BU) 
BCL 
Brn 


6(U3= 


Bu) 
BCU) 
Bt 


Bris 


Btu) 
Brun 
Bau 
Btu 
By 


Btu) 


Btu) = 
BtU)= 


Btu) 
Bin 
Btu) 
Bru) 
Btu) 
Blu 


THEN L 


v2 
AND AZ) <oK THEN 
Y= BND Z>23 AND 27<«28 


Qa 
2125 CET A(Z+248) =A CZ) 
2130 LET S=S+1 
2135 LET AtZ+8} =B 
2145 LET A(Z) =B 
2150 GOSUSB 7900 
2155 LET Z=Z2+278 
216@ LET O=-@ 
2178 GQASUB Sea 
2199 IF «28 SHEN GOTQ 2Bi2s 


j ro 
2250 IF Az) =9 OR “AtZ) =B OR AZ) 
sH OR AZ) sU THEN GOTO 2305 
22698 FOR B=1 TO 
2279 IF giz +x (Do) aH AND DB<«3 THEN 
GOTO 229 


2260 IF CA (Z4X CD) H OR A(Z+X iD) 

¥=UW) AND ACZ-X(0}) =B AND A(Z-2¥exX 

(D)) =K THEN LET @=2-22X(D). 

22980 IF O8=8 AND (A(Z4+X(D)) =H OR 

ACZ+X (DI) =U) AND ACZ-X(D)} <BR AND 
(ACZ-2#X (D3) =K OR ALZ-A2xeX(D} 2 =C 

? THEN LET @=2-2#xX (D) 


230@ IF @=@ THEN NEXT DO 


2320 LET A(O+X (D)) =ACO) 
23930 LET ATG)? =B 
23490 GOSUB 7eGS8 

GoTo 5@ 


2355 FOR J=1 TO 49 
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2380 IF A(Z)=9 OR AZ) =B OR AIZI 
=H OR AZ} “VU THEN GOTO 24380 

239@ FOR D=1 TO 4 

asee rr AtZ)=C AND DP>2 THEN GOTO 


2404 IF IT=1 THEN GOTO 24108 
R 

GN X*(D)) <>oH AND A(Z4+13#5GN 
2H AND A(Z-1+4+24(ABS (D-2. 
xH AND A(Z-142210ABS (D-2.- 
> Suen LET @=xX(D) 

A Zax CD) ) =B THEN LET @Q=xX 
2420 IF O<>@ THEN GOTO 2468a 

NEXT 


2430 LET IY} =I (N) 


Ss 
»< 
< 
}< 
GOT 
IF 


LET 
24590 GOTO @ 
2460 LET A(Z4+Q) =ACZ) 
2470 LET AtZ) =B 
2490 GOTO Sa 
7900 REM ERI ISIIs 
7910 PRINT AT 16,0;" 


7@20 PRINT AT 17.0; " 


7030 IF MOVE=1 THEN LET r=re+t 
7O90 PRINT AT 2.4. ° 5 4ST: "3 
R& (S5+156)., ri T 
71@@ PRINT AT 4 
7i1@ PRINT AT S 
2);" “; CHR AT? 
7" “jZ CHRS AGS); 
7120 PRINT AT 6, 
1." “S| CHRS AES 
“" «> CHRE A633); 
7139 PRINT AT ? 
9);" “; CHRE ACS 
3° "3; CHRS AI5B6) 3 
7140 PRINT AT 6 
13° “;:CHRS ASE 
“ “J CHRS ASO); 
7150 PRINT AT 93 
3° “SJ CHR Ale 
" "SCHRE A443), 
7160 PRINT AT 2 
as “; CARS RUS 
s "SS CHRE ACSA); 


Fi70 PRINT AT Al Os Sea “;CHRS AC 
333; “>; CHRS ASE) | “Ss CHRS ASL 
13° “;CHRE A(3O); 
71 127 
¥) ee 


1 
7210 IF Es= ="L Ose” 


THEN PRINT AT 


Laie bE. T! 
7220 IF ES$="CGSE" THEN STOP 
2238 Teo? =12 THEN PRINT AT 17,1 


7246 re T>=12 THEN PRINT AT 17,4 
725@ IF $>=12 OR T>=12 THEN sTOP 


726@ LET Us="" 

7270 IF MOVE=1 THEN PRINT AT AS, 
ciao ee YOU JUMP AGAIN? (Y OR NJ" 
728 IF MOVE=1 THEN INPUT L® 
$390 PRINT AT 15,2;° 


7300 LET MOVE =@ 
7310 IF Ug="V" THEN GOTO i1@fAa 


8Ge@ FOR D=1 TA 4 
6@1@ IF AZ) <>oK AND Dos THEN GOT 


0 8e5e 
Sele@ IF (A(Z+X(D)) =H OR_A(Z+¢AX(D) 
babes ND ACZ+ABQ*X CDI =H THEN LET 


8e3se IF xe ‘8? THEN GOTO 605@e 


Ppt hab he pf WMD A 


mR OHH aaa ew 


1g 

8 

N 

7) 

i 
DNOMACGIXKKKK< 


N 
n 
8] 


9130 IF 2<?73 AND Z>55 AND Z¢ 
AND Z<>68 AND 2¢(>69_ AND 2°36 
S Z<>62 THEN LET A(4) =C 

A 

3 


B? 
AN 


ad 


4@ IF 2+S4 AND Z>d2e AND = 


a <> 
ND 2<¢3248 AND 2<>49 THEN LET 
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9150 IF 2<¢41 AND Z223 .ANP 740A 
AND Z2<>35 AND 2<>36 AND 2<¢>28 AN 
D 2678 THEN LET AZ) =H 


NE Zz 
9170 LET Es="" 


10 
ws 
83] 
9 
r 
Mm 
4 
1) 


ce m= HR fl It 
ZDwN---89! 


cts, 
9330 IF ¥ Suk - THEN RETLIRN 
9335 LET MOVE =e 
9348 GOSUB 70e@e@ 
33506 eSV+INT (RNDF3)} 
$369 LET Sa SINT tRND #2) 
9370 LET A(Z+0)3 =C 
9358 LET AtLZ) =B 
93990 RETURN 
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If the chore of entering draughts has exhausted you, you can relax a little now with 
some 1K games written by Alastair Gourlay, a member of the users’ club from 
Scotland. 


TOWERS OF HANO! 


In this game, you must try to transfer the five rings from tower one {top) to tower 
three (bottom). If at any time you try to move one ring onto another smaller one, 
you will lose the game. The screen shows a continuous total of the number of moves 
taken so far. 


WwW OIM aAS(3,6) 

20 DIM a(3) 

39 LET T=9 

40 LET ag(i1) = N54321- 
57 LET AZ(2) = “a----- " 
6g LET AB(3) = aga) 

7 LET a(t) = 5 

ag PRINT "MOVE-"3T 

99 PRINT ~ 


199 FOR A = 1 TO 3 

119 PRINT AS(A) 

129 PRINT 

139 NEXT A 

149 If Ag(3) = "54321-" THEN GOTO 299 
159 PRINT "FROM" 

169 INPUT A 

170 PRINT A 

189 PRINT "TO" 

199 INPUT B 

209 LET T=T +1 

218 CLS 

2208 LET ACB) = A(B) + 1 

230 LET AS(B,A BY pans ne »A(A)) 
240 LET AZ(A,A " 

259 LET ACA) = a(A) - 1 

269 IF a(8) < 2 THEN GOTO 80 
279 IF Aa(e, A(B)) > AB(B,A(8)-1) THEN GOTO 359 
289 GOTO 8 

290 PRINT 

300 PRINT "YOU DID IT" 

319 PRINT 

320 PRINT "IN "3T3" moves" 
339 PAUSE 33007 

349 RUN 

350 PRINT 

369 PRINT "YOU CHEATED" 

379 PRINT "YOU LOSE™ 

369 PRINT 

399 GOTO 339 


BLOCKOUT 


in this 1K program, you use keys 5 to 8 to dodge the black obstacles and reach the 
target on the right. As you move, you will set up a trail. If you get trapped, you can 
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retrace this and maybe salvage the game. If you hit anything, or go over the edge you 
will be sent back to a starting position on the left, unless you go off the right hand 
edge (when the world ends). Two versions are given. Once you've mastered the slow 
game, try out the more difficult fast version. 


For the fast game use: 


129 


For the slow game: 


12a 


DImaS(1) 

LET 6 = INTERNODE} an +1 

CET C = INT(RND*8)*19 + 9 

FOR A= 170 8 

PRINT "(nine graphic a)" 

NEXT A 

LET E =@ 
= PEEK 16396+ PEEK 16397*256 

POKE C + 0,151 

ROKE B + 0; 149 

LET AS = INKEYS 


IF Ag = " " THEN GOTO 149 


IF Ag =" " THEN GOTO 119 


The following lines are common to both games: 


130 
140 
159 
169 
179 
189 
199 


LET © = VAL AS 

POKE B + 0,21 

LET 8 = B - (£=5)+(E=6)*19- (€=7) #19+(£=8) 
IF 8> 79 THEN LET 8 = 71 

IF 8 <1 OR PEEK(D + 8) = 128 THEN LET 8 = 1 
IF Ei ope} THEN LET 8 = B = 1 

IF PEEK(8+D)=151 THEN STOP 


Increase for harder game: 


209 
219 
228 
239 
249 
259 


FOR A = 1 TO 2 

LET £ = INT(RNO*8G) + 1 

IF PEEK(E+0)<> & THEN GOTO 199 
POKE € + OD, 128 

NEXT A 

GoTo 199 


SALVADOR 


This program allows you to draw pretty pictures on the screen, and is more flexible 
than the ARTIST program To move the cursor around, drawing or 
erasing, use keys 5, 6, 7 and 8. Pressing ““O” starts your cursor drawing, pressing ")"” 
again turns it into an eraser. 


LET X= @ 
LET Y = a 
LET B= 


IF IHKEVS <> "" THEN GOTO 49 
LET AZ = INKEYS 
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69 IF Ag = “@" THEN LET 8B * - B 


Ww UNPLOT X,Y 
ag PLOT X,Y 
og If 8 = 1 THEN UNPLOT X,Y 


199 IF as = “* THEN GOTO 59 

4119 LET X =X - (VAL AZ = 5) + ( VAL AZ = 8) 
120 LET Y = Y - (VAL AZ = 6) + (VAL AZ = 70) 
139 If x< @ THEN LET X=@ 

149 IF X > 41 THEN LET X = 41 

159 If Y <@ THEN LET Y = @ 


169 If Y>33 THEN LET Y = 33 
179 PLOT X,Y 
189 GOTO 5d 


BANDIT 


This game costs you a staggering $5 a shot (just as well you didn’t buy an Apple). 
You start with 850. Combinations of (i) the first two; (ii) the first and last; and (iii) 
the first three being equa! win amounts depending on the symbol (character codes 
one to seven). When HOLD is dispiayed, enter a “Y" to hold a reel, otherwise enter a 
space, then press NEWLINE to play the next shot. 


W LET C = S# 

28 om a3} 

3g DIMBZ(3: 

46 LET AS= “seven graphic A” 
s¢@ PRINT "BANDIT ® 

6g PRINT aZ 

a) PRINT AS 

6g PRINT "graphic A"; 

99 FOR X = 1 TO 3 


10 1lF 838 x} = "y" THEN GOTO 129 
119 LET A(X) = INT(RND*7) +1 

120 PRINT CHRS A(X);"graphic A"; 

138 NEXT X 

149 LET ag = "" 

157 PRINT 

169 PRINT As 

170 PRINT Ag 

189 PRINT “seven inverse spaces’’ 

199 LET C=C +5 

200 If C< = @ THEN STOP 

219 If att} a3} OR A 3 = A(3) THEN LET C = C + A(1)*5 
229 IF A(1) = AC2)AND A(2) = A(3) THEN LET C=C + Mee 
230 PRINT 

248 PRINT ": S"5C 

250 IF RND < .3 THEN GOTO 29¢ 

269 IF INKEYS = "" THEN GOTO 269 

270 cLs 

20g GOTO Sf 

299 PRINT 

300 PRINT "HOLD" 

31¢ INPUT 82 

320 GOTO 272 
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DODGE CITY 


In this, you use the 1 and 4 keys to dodge the black obstacles moving up the screen 
towards you. 


W POKE 16448,12 29 FOR X = 1 TO 12 

30 PRINT “graphic T";TAB 29; "graphict" 

4g NEXT X SP LET S=@ 69 LET Q= 19 
WwW LET Q = Q +(INKEYS = "4")-(INKEYS = "4") BM SCROLL 

og LET P = PEEK 16396 + PEEK 16397*256 + Q 


199 IF PEEK P<>@ THEN GOTO 159 

119 = POKE P,1@ 

129 PRINT AT 11,0;"graphic T";TAB (INT(RND*18)41)3"tuo 
inverse spaces";TAB 20;"graphic T* 

139 LET S = 5 +1 - 149 GOTO 79 159 PRINT S 


CONVERTING PROGRAMS 
FOR THE NEW ROM AND 2X81 


it is generally fairly easy to convert programs written for old ROM ZX80's so they 
will run on the new ROM machines, although programs which include PEEKing and 
POKEing - especially into REM statements - can cause some difficulties. 


in many cases, you'll find the program runs far better on a new ROM machine. That 
is, it is more effective in giving user prompts, or a moving display, or in screen layout. 
However, the new ROM is not as generous in memory as was the old ROM. Many 1K 
programs will not fit into 1K on the new ROM, because the systems variables for the 
new ROM use up much more of the original 1K than they do on the 4K ROM 
machine. 


MOVING DISPLAY 


Omit a moving display routine completely if inputting an old ROM program to a new 
ROM machine. Change the ‘time’ figure, usually given in the GOSUB line POKE 
16414, n (where n is the time figure). In other programs, the time is defined as LET 
T =n. Using the PAUSE function, set n (as in PAUSE n) to give the most effective 
display. bearing in mind that PAUSE 50 (PAUSE 69 in the U.S.) will hold the display 
for one second, pause 25 (PAUSE 39) for half a second, PAUSE 100 (PAUSE 120) 
for two seconds and so on. You can get a guide as to which figure to place after the 
word PAUSE by keeping in mind that the higher the number used for time in the 
old ROM moving display (up to, and including, 254), the shorter the time the display 
is held. 


RANDOM NUMBERS 
It is more expensive — in memory terms — to generate a random number on the new 


ROM than it is on the old. 


Here are the two versions: 


OLO ROM NEW ROM 
LET J= RNO(6) LET 3 = INT(RND*6) + 1 
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Some memory is saved by the fact that INT and RND are just single keystroke entries 
on new ROM machines, so each occupies just one byte. However, the multiplication 
sign, and the addition (which stops you getting 9 as part of your sequence of random 
numbers) eat up memory. If you need to generate many random numbers within 
different ranges during the course of a program, it might be worth having a subroutine 
of the type: LET 3 = INT(RND*K) + 1, and assign K each time before GOSUBing, 
Of course, this will take longer than having the line in sequence, but if operating time 
is not vital (and it rarely is unless you’re using an animated display), you'll find it 
will save you programming time and — in some programs -- will also save you space 
if you do more in the subroutine than just generate random numbers. 


PRINT RND will give you a sequence of random numbers between zero and one if 
set in an infinite loop such as: 


10 PRINT RNUZ" * (where = is a single space) 
28 PAUSE 4¢ 
3d GOTO 1¢ 


This sequence can be very useful. For example, the line on the old ROM: IF RND (2) 
= 1 THEN... .can easily be changed to the (almost) identical |F RND 5 THEN 
. . . You can also use this to make statistically weighted decisions, so that if you want 
a particular program branch followed, say, about one in three times, you can just say: 
(F RND 34THEN.... 


PRINT AT 


There is a neat little routine, which uses the line POKE ¥*33 + X + 1 + PEEK(16396) 
+ PEEK (16397)*256, n to POKE character n onto the screen of an old ROM ZX80 
at location Y, X {Y being lines down from the top of the screen, X being spaces 
across from the left hand side of the display). The new ROM machines do this 
automatically, and also has the advantage of allowing you to have more than one 
character at this location. I'll explain: 


On the new ROM, you can use the PRINT AT command in the following way. You 
need to give two co-ordinates, Y (counted down from the top of the screen) and X 
(counted across from the left hand side of the screen). These are used inaline as 
follows, which will print the word END at about the middle of the screen: 


Ww PRINT AT 40, 14;"END" 


You separate the two co-ordinates with a comma, and place a semi-colon after the 
second co-ordinate, before the words you want printed. The two co-ordinates can be 
worked out during the course of a program, so the tine: PRINT AT B, A/3; “END” is 
acceptable. The function PRINT AT automatically “INTs” a non-integer co-ordinate. 


So, if you need to print at a certain location, or you feel a program would be 
enhanced by a PRINT AT (and it can save a fot of blank PRINT lines, and loops 
which print single spaces across the screen), by all means do so. If you want an 
object to move, you'll have to add a PAUSE n command after the PRINT AT, and 
then -- after the PAUSE -- add a second PRINT AT? at the same locations, with 
blanks occupying the same locations as those previously occupied by, for example, 
the word NED. Here’s a simple example: 


18 LET A= @ 
20 LET B=@ 
36 PRINT AT A,B;3"x" 
40 PAUSE 30 
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of PRINT AT A, 8;" x" (a single space between quotes) 
60 LET A = A + RNO , 


a) LET 8 = B + RND 
ag If A > 18 THEN LET A =@ 
96 IF 8 > VOTHENLET B= 8 188 GOTO 3¢ 


This wili make an X move erratically (more or less diagonally) across the screen. So 
you can omit the long POKE Y*33 .. . etc and replace it, on new ROM machines, 
with a simple PRINT AT. 


The new ROM also has a TAB function which can start a PRINT statement at any 
point you choose ona line, without you having to use a ‘blank spaces’ loop. 


OLD ROM NEW ROM 


1 FOR A = 170 18 PRINT TAB 1%;"END" 
20 PRINT "#"3 


10 
34 NEXT A 
ie paar eno* OOS 


Note that you need a semi-colon after the number before the characters to be printed. 
TAB is a single entry function. 


GRAPHICS 


All the graphics symbols (including inverse graphics, inverse numbers and letters, even 
an inverse space) are available directly from the keyboard on new ROM machines. 
This saves use of the CHR$ (n) idea (although if you do need it, you'll be pleased to 
know that CHR$ is a single entry function). The ‘automatic’ inverse graphics can be 
used to ‘dress up’ programs by giving, for example, the instructions and user prompts 
in inverse jetters. 


To convert others, use the following table, in which the old ROM position is 
followed by the new ROM: 


Shift Q, graphic 5; shift W, graphic 6; shift E, 
graphic 1; shift R, graphic 2; shift T, graphic D; 
shift A, graphic A; shift S, graphic T; shift D, 
graphic 4; shift F, graphic 3; shift G, graphic S. 


REM statements, TLS 


The first address after the word REM on the old ROM is 16427. The equivalent 
address on the new ROM machines is 16514. You'll have to do some careful figuring 
to convert programs which rely heavily on data stored in a REM statement to get 
them to work on a new ROM machine. The TLS (truncate left) function on the old 
ROM is not available on the new ROM, so user responses which are two or more 
tetters, which the computer assesses by stripping the string input character by 
character, will need to be replaced by prompts which allow the user to input (and the 
computer to deal with) the information single character by single character. The 
string arrays on the new ROM (which are actually character arrays) can be used as a 
form of READ/DATA. If you wish to keep your user responses as two letters, 
LET AS = A$(2 TO) is a new ROM equivalent of LET AS = TLS{(A$). 
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INT 


As a general rule, always add the function INT (a single keystroke on the new ROM) 
before a division. That is, if the old ROM program says LET F = A/16,the new ROM 
version should be: LET F = INT(A/16). This is not needed if you're simply using the 
result of a calculation to PRINT AT or to TAB as the INT function is carried out 


automatically. 


SPECIFICATIONS 


Numeric: Any letter, followed by alphanumerics. 
itring: AS —Z$ 

-OR-NEXT: A-2Z . 
Numeric arrays: A-Z 

itring arrays: AS — 28. 

\rrays 

Jumeric arrays: ‘n’ dimension, subscript range starts at 1. 
itring arrays: ‘n’ dimensions, subscript range starts at 1. 
more correctly, tf the last subscript is omitted it’s treated 


haracter arrays) —as. a fixed length string. 


n this list, 


represents a variable. 

WZ represent numerical expression. 

4n represent numerical expressions that are rounded to 
the nearest integer. 


represents an expression. 
represents a string valued expression. 
represents a statement. 
lote that arbitrary expressions are allowed everywhere 


axcept for the line number at the beginning of a statement). 
hus “GOTO LN A ** 2” is valid. 


‘LEAR Deletes ail variables, freeing the space they 
occupied. 

‘LS (Clear Screen) deletes all PRINT output in the 
display file. 


CONTINUE Resumes execution of the last run program — 
repeats the last statement if an error was 
detected, otherwise restarts at the next one. 
Note that a command (immediate execution) 
statement counts as a program and so destroys 
the re-entry data. 


WM... Deletes any array or string with the same name, 
sets up space for a new array in the usual way, 
and initialises its element to 0 or” 


ORA Generally standard, but entirely 
TOB dynamic in its action. 
TEPC 
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Strings 


Undimensioned strings can be any length. 
Can be concatenated (+). 

Substring eg BS = AS (2 TO 4). 

Literal strings eg CS = “QWERTY”. 


Relational operators 


Equal 
Greater than 
Less than 


Less than or equal to 
Greater than or equal to 


Not equal 

PI (3.1415927) 

RND Arandom number between 
0 and 1, 


SGN Yields —1, 0, +1. 
SIN In Radians. 
SOR Square root. 


STR§$ The string of characters that would 
appear on the screen if x were 
PRINTed. 


TAN In Radians 


USR_ Converts x to an address in store 
and calls that address as a mchine 
code subroutine. On return, the 
result is the contents of the BC 
register pair. 


VAL Evaluates x as a numerical ex- 
pression {x must not contain the 
quote image character). 


AND Logical AND 
OR Logical OR 


- Negate 


NEXT 


GOSUB n 
GoTOn 


The effect of a NEXT statement is to look up the 
corresponding FOR-variable, increment its value 
by the STEP, check whether the limit is 
exceeded and if not jump to the looping line 
number. 


Transfers control to BASIC subroutine 


Jumps to line n. 


1F X THEN slf x is true (defined to mean greater in absolute 


INPUT v 


LIST 
LIST n 


LOAD ft 


NEW 


PAUSE n 


PLOT m,n 


POKE m,n 
PRINT... 


PRINT AT 
m,n 

RAND 

RAND n 


RETURN 
RUN 
RUN hn 
SAVE f 


SCROLL 


value than 2-112) then 5s is executed. The 
standard values of true and false as yielded by 
relational operators are 1 and QO. 


Outputs the display file to the screen with no 
special INPUT prompt: the rest is standard. 
Cannot be used as a command (immediate 
execution) statement. 


Lists from start of program. 


Lists program starting at line n with program 
cursor pointing at line n. 


Looks for a program called f on tape and loads 
it and its variables. 


Default n = 0. Erases BASIC program and 
variables. 


Sends the display file to the TV screen for n 
frames (50 frames per second) or until a key is 
pressed. 


Sends the PLOT position (a system variable) to 
(m, n) and blacks in that pixel. Also changes the 
PRINT position. 


Writes n in byte m in RAM. 


Mostly standard. The display file has 22 lines of 
32 characters each (2 zones of 16 characters) 
and when this is filled it is sent to the TV with 
error 5. CONTINUE carries on with the program 
with no loss of data. 


Moves the PRINT position to line m, character 
n. 


Standard. 


if n is given, this is made the value of the seed 
of the random number generator. 

Return from subroutine 

RUNs the BASIC program. 

CLEAR foliowed by GOTO n. 

Saves program and variables on tape and calls it 


Scrolls display file up one line, losing top line 


and making space at bottom. 
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ABS 
ARCOS 
ARCSIN 
ARCTAN 
CHR$ 
CODE 


cos 
EXP 


INKEY § 


INT 


LEN 
LN 
NOT 


PEER 


Absolute magnitude 
In Radians 


o 


The character whose code is : 


The code of the first characte 
in x (or O if x is empty) 


in radians 


x 
e. 


Reads the keyboard. Thi 
result is a character re 
Presenting the key pressed 
otherwise the empty string 


Integer. 


The length of x, 
Natural log 


Exclusive — ORs the first 
byte of x with 113, or thi 
NOT 0 =1, NOT 1 — 0. 
Unlike the other functions 
NOT has binding power « 
(between AND and the r 
lational operators) so tha 
for instance NOT A = B ha: 
the same value as NO’ 
(A=B) (and A B). 


The value of the byte ii 
store whose address is x 


CONVERSIONS 


SYSTEM VARIABLES: This table is designed 
——_ primarily for POKEing and 
PEEKing into REM statements. 


OLD ROM NEW ROM/ZX81 OLD ROM NEW ROM/ZX81 
16384 16384 

16385 16385 

16386 16391 

16387 16392 

16388 no equivalent 

16389 no equivalent 

16390 16394 16426 16513 
16391 16395 16427 16514 
16392 16400 16428 16515 
16393 16401 16429 16516 
16394 16404 16430 16517 
16395 16405 16431 16518 
16396 16396 16432 16519 
16397 16397 16433 16520 
16398 no equivalent 16434 16521 
16399 no equivalent 16435 16522 
16400 16412 16436 16523 
16401 16413 16437 16524 
16402 16418 16438 16525 
16403 16419 16439 16526 
16404 16420 1644p 16527 
16405 16408 16441 16528 
16406 16409 16442 16529 
16407 16427 16443 16530 
16408 16428 16444 16531 
16409 16429 16445 16532 
16410 16432 16446 16533 
16411 16433 16447 16534 
16412 16434 16448 16535 
16413 16435 16449 16536 
16414 16436 16450 16537 
16415 16437 16451 16538 
16416 no equivalent 16452 16539 
16417 no equivalent 16453 16540 
16418 no equivalent 16454 16541 
16419 no equivalent 16455 16542 
16420 no equivalent 16456 16543 
16421 no equivalent 16457 16544 
16422 16406 16458 16545 
16423 16407 16459 16546 
16424 ; 16509 16460 16547 
16425 16510 

16426 16513 

16427 16514 
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CHARACTER SET ,, 


37 
CODE CHARACTER HEX 38 
39 
r) space fu) 49 
1 01 41 
2 02 42 
3 03 43 
4 04 44 
5 05 45 
6 06 46 
7 07 47 
8 98 48 
9 09 49 
10 OA 5 
11 " OB 51 
12 £ oc 52 
13 & oD 53 
14 : DE 54 
55 
15 ? OF 56 
16 ( 10 57 
7 ) 1 58 
18 12 59 
19 13 (3) 
20 = 14 61 
21 + 15 62 
22 - 16 63 
23 * 17 64 
24 / 18 65 
25 ; 19 66 
26 ' 1A 67 
27 : 1B 68 
28 i] 1c 69 
23 1 1D 70 
30 2 1E 71 
31 3 1F 72 
32 4 20 73 
33 5 21 74 
34 6 22 75 
35 7 23 76 
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N<xxse<ccoao*ravorv*O22E2r Re -zrH rTM, oO wDpOwW 


not used 


cursor up 
cursor down 
cursor left 

cursor right 
GRAPHICS 


117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
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EDIT 
NEWLINE 
RUBOUT 
K/L MODE 
FUNCTION 


CoN 
ys? 
‘4 
ne 


number 
cursor 


78 
79 


Decimal 139 to 191 give 


the inverse of the 


listed character 


139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
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154 
155 
156 
187 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 


IN<KXSKCANMDOVOZEFAC AH“ TAAMMIGODOTDHPORNAAP WYN AD? 


AT C1 
TAB c2 
not used C3 
CODE C4 
VAL cS 
LEN C6 
SIN C7 
cDSs C8 
TAN cg 
ASN CA 
ACS CB 
ATN cc 
LN cD 
EXP CE 
INT CF 
sOR De 
SGN D1 
ABS D2 
PEEK D3 
USR D4 
STRS DS 
CHRS D6 
NOT D7 
** Ds 
OR Dag 
AND DA 
DB 
DC 
DD 
THEN DE 
TO DF 
STEP E& 
LPRINT €E1 
LLIST E2 
STOP E3 
SLOW €&4 
FAST E5 
NEW E6 
SCROLL E7 
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cLS 
UNPLOT 
CLEAR 
RETURN 
COPY 


FITTING THE NEW ROM 


1, 


Loosen the five white rivets that hold the upper and lower case halves 
together. A rivet may be loosened by poking the central core up from 
underneath using a knitting needle or similar instrument. 


. The two case halves should now snap apart by applying finger pressure in 


the area of each rivet in turn. 


. Both ROMs are susceptible to damage from static electricity so always 


earth yourself by touching a large metallic object before handling either 
ROM. Do not attempt to remove or insert the ROMs with the power 
applied — disconnect the mains adaptor first. The 4K ROM is on the right 
hand side of the circuit board and is easily identifiable as the only chip with 
24 pins. Remove the ROM from its socket by levering it up a little at either 
end with a smail knife or screwdriver. Be careful not to damage any of the 
other components. 

Insert the new 8K ROM in the — FIG. 1 
empty socket with pin 1 (see 
Fig. 1) nearest to the modulator 
(the large metal can). The legs 
on the new ROM may be spread 
outa bit in which case they can om 

be bent by pressing against a 

hard flat surface. Ensure that 

all of the pins go into the holes in the socket and that none get bent 
underneath the ROM. 


Remove the two black rivets 
from the keyboard, position 
the new keyboard overlay 
correctly by lining up the holes 
and replace the rivets. (See fig. 
2). Once the rivets are secured, 
it may be necessary to “‘bed in” 
the keyboard by smoothing 
over the surface with finger 
pressure. DO NOT attempt to remove the old keyboard from the circuit 
board, 


. Before replacing the top half of the case, connect up your ZX80 and test 


it. If it doesn’t work, check that the ROM pins are all correctly in the 
socket and that the ROM fits securely. Remember that with the new overlay 
you will need to press a little harder on the keyboard. 


7. Replace the top half of the case and secure it with the five white rivets. 


120 


$9.95 


Getting Acquainted 
With Your ZX81 


... This is undoubtedly the book to read. Full of insight, witty, 
sensible and extremely funny, it eases you into programming 
practically from the word go... 


Personal Computer World 
review of Tim Hartnell’s first book 
MAKING THE MOST OF YOUR 2X80. 


Tim Hartnell’s first book became a best-seller because it helped the 
newcomer to computing. to explore his or her ZX80 and make the most 
effective use of it. 


In this book, GETTING ACQUAINTED WITH YOUR ZX81, Tim does the 
same for the owner of a ZX81 (or new ROM ZX80). Whether you've never 
touched a computer before the ZX81, or you've had a Jot of experience, 
you'll find much of value and interest in this small volume. 


..in the text, linked to most of the listings is a well thought out 
“hands off” learning approach... AS you work your way through 
it, not only does your library grow but also your understanding 
of the BASIC commands which make them possible...A book to 
be recommended to the ZX80 owner... 

Computing Today 


The technique proved so successful for the ZX80 works just as well for 
the ZX81, as this book proves. There are over 70 programs, including a 
complete CHECKERS game, which draws the entire board on the screen. 
You'll even see the ZX81 move its pieces. Captures look particularly effective. 
Other games include: ALIEN IMPLODERS, BLASTERMIND, MOON LANDER, 
BREAKOUT, DIGITAL CLOCK, ROLLER-BALL, DERBY DAY, SPACE-BOY, 
BAKER’S DOZEN and STAR BURST. 


But it is not all games. The book introduces you to a number of ZX81 and 
BASIC language functions and statements, including the use of subroutines, 
PLOT and UNPLOT, SCROLL, arrays and the DIM statement (one:dimensional, 
n-dimensional and string arrays), TAB and PRINT AT, INKEYS, random 
numbers and the PEEK and POKE commands. 


If you’re interested in exploring the great mathematical abilities of the 
2X81, you'll find a host of programs to get you underway, from plotting 
cascading sine waves, to printing out tables and graphs, sorting data, solving 
quadratic and other equations, determining the mean of a list of numbers, 
and more. There is even a program to work out how much interest you must 
pay ona loan. 


Tim Hartnell is co-ordinator of the National ZX80 and ZX81 User’s Club 
and has used the experience gained from contact with hundreds of club 
members to write a book to answer most ZX81 owners’ needs. 


ISBN 0-916688-33-X 


